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PROGRAM AND CHARTS FOR DETERMINING SHOCK TUBE, 

EXPANSION TUBE, AND EXPANSION TUNNEL 
FLOW QUANTITIES FOR REAL AIR 

By Charles G. Miller ID and Sue E. Wilder 
Langley Research Center 

SUMMARY 

A computer program written in FORTRAN IV language is presented which deter- 
mines shock tube, expansion tube, and expansion tunnel flow quantities for real-air test 
gas. For the shock tube phase of the program, flow conditions behind the incident shock 
into the quiescent test gas are determined from the pressure and temperature of the 
quiescent test gas in conjunction with (1) incident-shock velocity, (2) static pressure 
immediately behind the incident shock, or (3) pressure and temperature of the driver gas 
(imperfect hydrogen or helium). The effect of shock reflection at the secondary dia- 
phragm of the expansion tube, resulting in a standing or a totally reflected shock, is 
included. Expansion tube test-section flow conditions are obtained by performing an 
isentropic unsteady expansion from conditions behind the incident shock, standing shock, 
or totally reflected shock to either the test region velocity or static pressure. Expansion 
tunnel test-section flow conditions are obtained by performing an isentropic steady expan- 
sion from expansion tube free-stream conditions to either the nozzle test region velocity 
or static pressure. Both a thermochemical-equilibrium expansion and a frozen expansion 
for the expansion tube and expansion tunnel are included. The effect of flow attenuation 
along the acceleration section of the expansion tube is included for an equilibrium expan- 
sion. Flow conditions immediately behind the bow shock of a model positioned at the test 
section of a shock tube, expansion tube, or expansion tunnel are determined. A listing of 
the computer program is presented along with a description of inputs required and 
samples of the data printout. Charts which provide a rapid estimation of expansion tube 
performance prior to a test are included. 

INTRODUCTION 

Experimental studies using air as the test gas have been initiated in the Langley 
6-inch expansion tube, and a number of studies are expected to be performed in the 
Langley expansion tunnel. Prior to performing studies in these facilities, it is essential 
for the investigator to ascertain the theoretical performance of the facility because of the 



wide range of flow conditions which may be generated and the very short test times (less 
than 300 psec or so) which place stringent requirements on facility instrumentation. 

Thus, a knowledge of the magnitude of physical quantities to be measured is required. 
After a test, a convenient means for determining expansion tube and expansion tunnel 
flow conditions from measured quantities is desirable. Although a number of theoretical 
studies have been directed toward prediction of expansion tube and expansion tunnel per- 
formance with air as the test gas (for example, refs. 1 to 4), these studies were primarily 
concerned with simulation or duplication of conditions experienced by high-velocity, earth- 
entry vehicles. 

The primary purposes of the present study are (1) to furnish a convenient, versatile, 
accurate computer program for determining shock tube, expansion tube, and expansion 
tunnel flow quantities in real air from combinations of measured flow quantities and 
(2) to provide charts for rapid estimation of facility performance prior to a test. This 
progi am is similar to the real-gas mixture study of reference 5; however, a number of 
differences exist between these two programs. The present program requires much 
less computer time, with no appreciable sacrifice in accuracy, than the program of refer- 
ence 5. Such a reduction in computer time is a significant factor in data reduction, since 
most of the testing in the Langley 6 -inch expansion tube is performed with air as the test 
gas. 

Operating experience with the Langley 6 -inch expansion tube and operation of this 
expansion tube as a shock tube demonstrated the desirability for options other than those 
presented in reference 5. Results included herein, but not in reference 5, are (1) charts 
illustrating predicted shock tube performance with hydrogen and helium driver gases for 
a range of driver gas pressure and temperature, (2) a totally reflected shock, as well as 
a standing shock, at the secondary diaphragm, (3) real air as the acceleration gas, (4) the 
effect of wall boundary layer on shock tube and acceleration section air flow for laminar 
(ref. 6) and/or turbulent (ref. 7) boundary layers, (5) the effect of flow attenuation along 
the acceleration section, (6) imperfect (intermolecular) air effects permitting calculations 
at higher pressures than permissible with reference 5, (7) determination of expansion 
tunnel test-section flow conditions from measured nozzle free-stream velocity or static 
pressure, and (8) charts which provide a convenient means for properly preparing facility 
instrumentation and determining the level of quiescent test gas and acceleration gas pres- 
sures for a test. 

The procedures for determining shock tube, expansion tube, and expansion tunnel 
flow quantities for real air are incorporated into a single computer program written in 
FORTRAN IV language. Required program inputs are listed and described in appendix A. 

A flow chart and a listing of the program are also presented in appendix A along with 
sample data printouts. 
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SYMBOLS 


The International System of Units (Si) is used for all physical quantities in the pres 
ent study. Conversion factors relating SI Units to U.S. Customary Units are given in 
reference 8. 

A cross-sectional area, m 2 

a speed of sound, m/sec 

d shock tube or expansion tube inside diameter, m 

h specific enthalpy, m 2 /sec 2 (J/kg) 

L a length of acceleration section, m 

L distance measured downstream from secondary diaphragm, m 

s 

£ distance between incident shock in region (T) and test -air —driver -gas 

interface, m (see fig. 1) 

M Mach number, U/a 

M incident shock Mach number, U s /a 

s 

N unit Reynolds number, pU/p, m" 1 

Re 

p pressure, N/m 2 

q stagnation point convective heat-transfer rate, W/m 2 

r universal gas constant, 8.31434 kJ/kmol-K 


radius, m 

specific entropy, kJ/kg-K 


sW u /R 


nondimensional specific entropy 
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temperature, K 


test time, sec 
velocity, m/sec 
interface velocity, m/sec 
reflected shock velocity, m/sec 
incident shock velocity, m/sec 
molecular weight, kg/kmol 

molecular weight of undissociated air, 28.967 kgAmol 

distance between primary diaphragm station and incident shock in 
region © , m (see fig. 1) 

distance behind incident shock in region m (see fig. 1) 
mole fraction 

compressibility factor, pW u /pRT 

number of kmol of dissociated air per number of kmol of undissociated 
air, W u /W 

ratio of specific heats 

isentropic exponent, l- p\ 

\ 9 log p) sW u /R 

defined by Z* = 1 + a 

nozzle boundary -layer displacement thickness, m 
coefficient of viscosity, N-sec/m 2 



p density, kg/m^ 

r time interval between arrival of incident shock and interface, sec 

Subscripts: 


A 

a 

eff 

f 

geo 

i 

k 

m 

max 

n 

t,2 

t,5 

t,6 

w 

x s 


denotes region for no standing shock at secondary diaphragm, region ^s) 
for standing shock, and region ^2r) for reflected shock (see fig. 1) 

atom 

effective (based on mass flow considerations) 

frozen 

geometric 

ideal 

k = 2 denotes shock tube flow, k = 5 denotes expansion tube flow, and 
k = 6 denotes expansion tunnel flow 

molecule 

maximum 

model nose 

stagnation conditions behind normal bow shock at shock tube test section 
stagnation conditions behind normal bow shock at expansion tube test section 
stagnation conditions behind normal bow shock at expansion tunnel test section 
wall 

distance behind incident shock in region (T) , m (see fig. 1) 
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1 


state of quiescent air in front of incident shock in shock tube (intermediate 
section of expansion tube) 

state of air behind incident shock in shock tube 


2 


2s 

2r 

3 

4 

5 

5s 

6 

6s 

10 

20 


state of air behind standing shock at secondary diaphragm or normal 
bow shock at shock tube test section 

state of air behind reflected shock at secondary diaphragm 

state of expanded driver gas 

initial driver gas conditions 

state of test air in expansion tube test section 

static conditions behind normal bow shock at expansion tube test section 
state of test air in expansion tunnel test section 

static conditions behind normal bow shock at expansion tunnel test section 

state of quiescent acceleration gas in front of incident normal shock in 
acceleration section 

state of acceleration gas behind incident normal shock in acceleration section 


Superscript: 

* conditions at nozzle throat 


FACILITIES, ANALYSIS, AND PROCEDURE 

Before the procedures for determining shock tube, expansion tube, and expansion 
tunnel flow quantities are discussed, a brief description of these facilities is given. Next, 
the source of imperfect real-air thermodynamic properties is briefly discussed. After 
these discussions, the procedures for determining free-stream and post -normal -shock 
f ow conditions for the shock tube, expansion tube, and expansion tunnel are presented. 
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Description of Shock Tube, Expansion Tube, and Expansion Tunnel 

Shock tube .- The shock tube is a tube, generally cylindrical, divided by a high- 
pressure diaphragm into two sections. The upstream section is the driver or high- 
pressure section. This section is pressurized with a gas having a high speed of sound, 
such as unheated or heated hydrogen or helium. (Greater operation efficiency is realized 
with gases having a high speed of sound.) The downstream section is referred to as the 
driven or low-pressure section and the cross section is constant and generally circular. 

The driven section is usually evacuated and then filled with the test gas at ambient tem- 
perature. As illustrated in figure 1(a), the driver gas at time of diaphragm rupture is 
designated as region (4) and the quiescent test gas is designated as region (T) . Upon 
rupture of the diaphragm, an incident shock wave propagates into region (T) with veloc- 
ity U g j. Flow conditions immediately behind this shock are denoted as region (^2) 

(fig. 1(b)), and shock tube testing takes place in the flow region from immediately behind 
this incident shock wave to the test-gas -driver-gas interface. For a blunt model posi- 
tioned in the driven section, a standing shock is formed at the model, provided flow in 
region (2) is supersonic. (See fig. 1(c).) The flow conditions immediately behind this 
standing shock are designated as region (2s); the model stagnation conditions, as region (t2). 
When the incident shock wave reaches the end wall (or secondary diaphragm of the expan- 
sion tube, to be discussed subsequently), it is reflected back into region (2) . (See 
fig. 1(d).) Flow conditions behind this reflected shock are designated as region (2i). 


Expansion tube and expansion tunnel .- The expansion tube is basically a shock 
tube with a section of constant cross section attached to the downstream end. A weak 
low-pressure diaphragm (secondary diaphragm) separates this section, denoted as the 
expansion or acceleration section, from the driven section, which is commonly referred 
to as the intermediate section of the expansion tube. The acceleration section is evac- 
uated and filled with the acceleration gas at a low pressure and ambient temperature. 
The expansion tunnel is simply an expansion tube with a nozzle added to the downstream 


The operating sequence of the expansion tunnel includes that for an expansion tube, 
which, in turn, includes that for a shock tube; the sequence for an expansion tunnel is 
shown schematically in figure 2. The sequence begins with the rupture of the primary 
or high-pressure diaphragm separating the driver and driven sections. An incident shock 
wave propagates into the static test gas and an expansion wave propagates into the driver 
gas. The shock wave encounters and ruptures the secondary diaphragm. Flow energy 
lost in rupturing this diaphragm results in an upstream-facing shock wave reflected 
from the diaphragm. If this shock wave is assumed to be a standing shock, flow condi- 
tions behind this standing shock are denoted as region (2s) ; if a totally reflected shock 
at the secondary diaphragm is assumed, flow conditions behind this reflected shock are 
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denoted as region Qh^. (See fig. 1(d).) A second incident shock wave propagates into 
the acceleration gas while an upstream expansion wave moves into the test gas. In 
passing through this upstream expansion wave, the test gas undergoes an isentropic 
unsteady expansion that results in an increase in flow velocity. Expansion tube testing 
occurs in the flow that has passed through the expansion and is denoted as region (5) in 
figure 2. Thus, for the expansion tunnel, the test gas is processed first by an incident 
shock into the quiescent test gas in region (T), second, by a shock wave resulting from 
shock reflection at the secondary diaphragm, third, by an unsteady expansion in the accel- 
eration section, and finally, by an isentropic steady expansion in the nozzle. Expansion 
tunnel testing takes place in region (6) of figure 2. 

Thermodynamic Properties for Real Air 

Thermodynamic properties for imperfect real air in thermochemical equilibrium 
are obtained from a magnetic, tape furnished to the Langley Research Center by the 
Arnold Engineering Development Center (AEDC). The thermodynamic properties 
obtained from this tape correspond to the properties tabulated in reference 9 for various 
values of entropy sW u /R. The temperature range of the AEDC tape is 100 K to 15 000 K 
and the sW u /R range is 15.6 to 133. A subroutine for searching the real-air tape was 
also obtained from AEDC and is designated herein as SLOW. An interpolation procedure 
allowing pressure p and enthalpy h as inputs was derived for the study of reference 10 
and is referred to herein as SEARCH. 

The relations derived in reference 11 for predicting thermodynamic properties of 
real air in thermochemical equilibrium are also employed in the present study. These 
relations were obtained from curve fits and cover a temperature range of 90 K to 
15 000 K and an sW u /R range of 26 to 126. Imperfect air (intermolecular force) effects 
are neglected in reference 11. These relations are incorporated into a subroutine desig- 
nated as SAVE. The sources of thermodynamic properties are discussed in more detail 
in reference 10 and appendix B. 

Calculation Procedure for Shock Tube 

As in reference 5, three combinations of inputs are considered for determining flow 
quantities in region (2). In all three combinations, the quiescent test air pressure p^ 
and temperature T^ are assumed to be known. The quantities (1) incident-shock veloc- 
ity u s l , (2) pressure behind the incident shock in the driven section pg, or (3) the 
driver gas pressure p^ and temperature T^ are used in conjunction with pj^ and Tj 
to determine conditions in region (J) . 
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The conservation relations, in a laboratory coordinate system, for mass, momentum, 
and energy for a normal shock wave moving through region (T) are 


p l U s,l = p 2 ( U s,l " U 2) 

P 1 + p l U s,l = p 2 + p 2( U s,l ‘ U 2^ 2 


h l + f U s,l = h 2 + f( U s,l ‘ U 2) : 


These relations are solved in conjunction with the equation of state (that is, source of 
real-air thermodynamic properties) in the form 


p 2 _p 2( p 2 ,h 2) ^ 

for the unknown quantities p 2 , hg, Ug, and p 2 or U g 4> For the Langley shock tube 
and expansion tube, is ambient and p^ is generally less than lMN/m^. At these 

conditions in region (T), imperfect air effects are negligible and corresponding thermo- 
dynamic quantities appearing on the left-hand side of equations (1) to (3) are obtained 
from perfect air = 1, y 4 = 7/5) relations. 

Equations (1) to (4) are solved by iteration. The iterative schemes used for inputs 
Ug p p 2 , or p 4 and T 4 are discussed in detail in reference 5. For all three combi- 
nations of inputs, the air flow in region (2) is assumed to be in thermochemical 
equilibrium. 

The procedure for determining shock tube performance where p 4 and T 4 are 
inputs is commonly referred to as "simple shock tube theory," since it is based on a 
simplified one-dimensional, inviscid flow model which assumes instantaneous diaphragm 
rupture, no shock wave attenuation, and a driver to driven cross-sectional area ratio of 
unity. Imperfect gas effects in region (T) for helium at 200 K ^ T 4 § 15 000 K and hydro- 
gen at 273 K = T 4 = 600 K are included. 

Two additional shock tube flow regions of interest (fig. 1) are the result of a standing 
shock in region ( 2 ) ^region (2s)) and a totally reflected shock into region (2) 

^region ( 2 ^) • Because of shock reflection at the secondary diaphragm of the expansion 
tube, these two regions are also considered in the calculation of expansion tube flow quan- 
tities and are discussed subsequently. 

Effect of boundary layer on test time .- Shock tube wall boundary -layer growth 
behind the incident shock introduces departures from ideal shock tube flow. (See refs. 6 
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and 7.) The presence of this boundary layer causes the incident shock to decelerate, the 
interface to accelerate, and the flow between the incident shock and interface to be non- 
uniform. When the wall boundary -layer displacement thickness is large in comparison 
with the tube diameter, the separation distance between the incident shock and the inter- 
face and the test time approach limiting maximum values. (Test time is defined as the 
time interval between arrival of incident shock in region (T) and arrival of the test-gas— 
driver-gas interface at a given station.) Actual shock tube test times may be considerably 
less than the values predicted by use of idealized theory. Thus, shock tube test time and 
flow nonuniformity are considered in the present calculations. Since these flow phenom- 
ena are dependent on the character of the shock tube wall boundary layer behind the inci- 
dent shock, the effect of both laminar and turbulent wall boundary layers are included. 

Shock tube test times have been treated analytically in reference 6 for laminar 
boundary layers and in reference 7 for turbulent boundary layers. For a laminar 
boundary layer, the test time t is obtained from the relation (ref. 6) 



where the separation distance between the incident shock in region (7) and the test-gas— 
driver-gas interface £ for a given distance X downstream of the diaphragm station 
is given by (ref. 6) 



Simple expressions for the maximum separation distance f max in terms of 
known quantities were obtained from curve fits applied to the real -air results of refer- 
ence 6 and yielded the expressions 


f max = Pi d2 f2-060 - 2.056 X 10" 1 M g 1 + 8.095 X 10“ 3 M 2 1 
*max = Pi d2 ( 8 - 7 23 x 10" 1 - 7.488 x 10- 3 M g ^ 


14 < M„ t < 301 
i M 
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The results of figure 6 of reference 6 were extrapolated to a value of M g ^ equal to 30 
to obtain equation (7b). As the separation distance approaches this limiting value £ max , 
the interface velocity approaches the incident shock velocity and is essentially equal to 

U s,l ^max* 

The test time for a turbulent boundary layer is obtained from the relation (ref. 7) 


r 


-\ 


5£ 


max™ 

Vi i 


!°g ( 


i + foi - 


t0.2 


max/ 


• -M 

\ X max/ 


Vmax; 


r . m 0 - 2 

1 Umax/ 


) - u s>1 t = X (8) 




where & is obtained from the relation (ref. 7) 


51 


max 


\ p v 


!°g ( 


M 


0.2 


■max/ 


1 + 


“max 


0.2 


- 2 tan 


-1 


max 


0.2 


‘max/ 




0.2 


= -X 


J 


( 9 ) 


Curve fits to the real -air results of reference 7 yielded the following expressions for 

l : 
max 

£ max = p i°- 25 d 1 - 25 (5.273 - 7.514 x lO^Mg j + 3.435 X 10- 2 M g ^ ^4 < M g x < lo) 

(10a) 

4 max = p 1 °- 25 d 1 * 25 (l.546 - 3.017 X IQ' 2 M g l ) (lO § M g>1 < 30) 

(10b) 

For the inviscid case, the "ideal" test time is given by the relation (ref. 12) 


= ^1 

‘• 2 “ P 2 U 2 


( 11 ) 
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Effect of boundary layer on flow nonuniformity .- A method for estimating flow non- 
uniformity (axial variation of flow quantities) between the incident shock and interface 
after maximum separation distance is reached is presented in references 6 and 13. In 
these references, the concept of an equivalent inviscid channel is employed and yields the 
following continuity equation: 



where n = 0.5 for a laminar boundary layer and n = 0.8 for a turbulent boundary 
layer. Additional relations required for solution of flow conditions in the region between 
the incident shock and interface are the isentropic condition for equivalent inviscid 
channel flow 


s 2 W u\ 

■ R '*s 


' s 2 W u\ 

^ R 'x s =o 


and either the energy relation 


(13) 


+ 2( U M " U 2,X S ) 2 ' h 2,X g =0 + |( U s,l ' U 2,X s =o) 2 


if the AEDC real-air tape is used as the source of thermodynamic properties 
(p = p(h, sW u /R)), or the momentum relation 


(14a) 


P 2,X S +p 2,X s ( U s,l " U 2,X S ) 2 - P 2,X g -0 + p 2,X s =o( U s,l " U 2,X g =o) 


(14b) 


if the AEDC real-air curve fit expressions are used (p = p(p, sW u /R)). This system of 
equations is solved for the unknowns p 2 x > U 2 X ’ and p 2 X ’ in con i unction with the 

equation of state, by iteration on p 0 Y for a given value of X c /l .As discussed 

cy max 

in reference 6, equation (12) is less accurate for the case where the maximum separation 

distance has not been obtained. This inaccuracy is due to entropy variations (associated 

with nonuntform shock motion) and the unsteady nature of the flow between the incident 

shock and the interface. Since the accuracy of equation (12) decreases as l ft 

f m ax 

decreases from its limiting value near unity, the effect of flow nonuniformity is deter- 
mined herein only when the condition l/L„ v g 0.9 is satisfied. 

/ max 
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Calculation Procedure for Expansion Tube 

As discussed in reference 14, the flow energy lost in rupture of the secondary dia- 
phragm must result in an upstream-facing shock wave reflected from this diaphragm. 

When the diaphragm ruptures, the resulting expansion fan overtakes and weakens the 
reflected shock. It is sometimes assumed that the reflected shock has been weakened to 
a standing shock by the time it processes the flow which eventually becomes the test flow. 
Therefore, the possible existence of a standing normal shock at the secondary diaphragm 
(region ^s)) was considered in reference 5. 

Recently, tests were performed in the Langley expansion tube with helium as the 
test gas. (See ref. 15.) The primary reason for employing helium was to divorce pos- 
sible effects of flow chemistry on test-section flow quantities from the gas dynamics or 
fluid mechanics of the flow and, thereby, to provide an approximate model of the expansion 
tube fluid mechanics. These helium tests indicated the existence of a totally reflected 
shock at the secondary diaphragm (region ^J^) • Hence, the effects of a reflected shock, 
as well as those of a standing shock, at the secondary diaphragm are considered herein. 

As in region ^), flow quantities in regions ^2s) and (2r) are assumed to be in thermo- 
chemical equilibrium. In computing flow quantities in regions (2s) and (2r), flow quan- 
tities in region (2) are assumed to be uniform. 

Standing shock at secondary diaphragm .- The conservation relations for a standing 
shock at the secondary diaphragm are 


P 2 U 2 " p 2s U 2s 

(15) 

2 2 
p 2 + P 2 U 2 ~ p 2s + p 2s U 2s 

(16) 

h 2 * | V ' h 2s + | U 2s 

(17) 


Since the conditions in region (2) are assumed to be known (that is, calculated previously), 
equations (15) to (17) are solved in conjunction with the equation of state, by iteration, to 
yield conditions behind the standing shock (region (2s)) • (It should be noted that the flow 
conditions in region (2s) are the same as those immediately behind a normal bow shock 
wave on a model positioned in the shock tube test section.) 

Total ly reflected shock at secondary diaphragm . - For a totally reflected shock wave 
at the secondary diaphragm, the conservation relations are 

P 2 ( U 2 + U r) = P2r U r (18) 
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P 2 + P2( U 2 + U r) 2 = p 2r + P2r U i 

h 2 + |( U 2 + U r) 2 = h 2r + | U r 2 


(19) 

( 20 ) 


Again, the conditions in region are assumed to be known. Equations (18) to (20) are 
solved by iteration for the thermodynamic properties in region ^r) and the reflected 
shock velocity U r . 

Thermochemical-equilibrium unsteady expansion . - Region (X) is defined as being 
region (2) for the case of no shock reflection at the secondary diaphragm, region ^2s) 
for a standing shock, and region (2^ for a totally reflected shock. As discussed pre- 
viously, the expansion tube flow undergoes an isentropic, unsteady expansion from 
region (X) to region ( 5 ). Across an upstream -facing unsteady expansion wave, the 
velocity increment is related to the thermodynamic properties by the integral expression 
(ref. 1) 




s A Wu/R 


(21) 


Either free -stream pressure or test-air — acceleration-gas interface velocity Ug is 
considered, individually, as inputs necessary for the solution of equation (21), As is 
typical of high-enthalpy facilities, the assumption of thermochemical-equilibrium air flow 
is subject to question. Hence, limiting cases are obtained by performing both a thermo- 
chemical equilibrium expansion and a frozen expansion. 

For an equilibrium expansion where the quantity Ug is an input, the AU of equa- 
tion (21) is known. If the AEDC real -air tape is to be used as the source of thermodynamic 
properties, the enthalpy is decreased from a maximum value of h^ in given increments. 
Since an isentropic ^s^W u ^R = SgW^R^ expansion is assumed, subroutine SLOW 

^inputs h and s^W u ^R^ is used to generate corresponding values of the inverse of the 

speed of sound a - *, If the AEDC real -air curve -fit relations are to be used instead of 
the AEDC tape, pressure is decreased in given increments from a maximum value of p^. 
These values of pressure are used in the subroutine SAVE with constant entropy s j^ u j R 
to generate corresponding values of enthalpy (the maximum value being h A 'j and the 
inverse of the speed of sound. Equation (21) is integrated numerically between the known 
limit h^ and the unknown limit hg. The value of h which equates the integral of 
equation (21) to AU is the desired value of hg. Corresponding thermodynamic quan- 
tities in region ( 5 ) are obtained from the real-air source, since the quantities SgW/R 
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and h 5 or p & are now known. When p g is an input, the thermodynamic quantities 

in region (IT) are obtained directly from the real-air source since s^W^R and Pg are 
known. With the limits of integration known, the integral in equation (21) is evaluated 
numerically to give AU, and hence Ug. 

Additional conditions in region (T) that are of interest are free-stream Mach num- 
ber Mg and free-stream unit Reynolds number N Re g. For values of Tg less than 
or equal to 1500 K, the free-stream viscosity p .5 required in determining N Rg ^g * s 
calculated from Sutherland's viscosity law (ref. 10), whereas for values of Tg greater 
than 1500 K, p.g is obtained by use of the results of reference 16. 

Frozen unsteady expansion.- Frozen flow is defined herein as flow in which the 
vibrational energy and chemistry remain unchanged during the expansion of the test air. 
For the expansion tube, this freezing of the vibrational energy and chemistry is assumed 
to occur in region (S) . Hence, the energy in region may be viewed as consisting of 
an active or available part which provides the energy for flow expansion and a frozen or 
nonavailable part. Since the energy associated with vibration and chemistry is constant 
for a frozen expansion, the ratio of specific heats y will be constant and the test air 
behaves as a perfect gas. To obtain an estimate of the ratio of frozen specific heats y j 
for dissociated but unionized air, it is assumed that the dissociated air may be modeled 
by atoms (O and N) and molecules (n 2 , 0 2 , and NO) . It is further assumed that the atoms 
are not distinguishable and the molecules are not distinguishable. This is a reasonable 
assumption since W Q is approximately equal to W N , and Wo 2 , W N2 , and W n q are 

approximately equal. The molecular weight for this composition is given by the relation 

w - x a W a + x m W m . W a (2 - x a ) (22) 

where the sum of the mole fractions is unity ^x a + x in = l) and the molecular weight 
of a molecule (o 2 , N 2 , NO) is approximately twice that of an atom (O, N). From the 
relation Z* equal to W U y/w, where W u is approximately W m , the expression 

Z * = 2 (23) 

2 -x a 

is obtained. By letting the quantity Z* be defined as 1 + a, it can be shown that 

7 + 3a (24) 

y f = TTa" 

Since the quantity Z A * is assumed to be known, values of a, and hence yp may be 
obtained. 
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For a frozen (perfect) gas, equation (21) may be evaluated in closed form to yield 


2 

U 5,f ' U A = ^Tf( a A,f ' a 5,f) (25) 

If a value of Ug^ is known, the frozen free-stream speed of sound a & f follows from 
equation (25) and the corresponding frozen thermodynamic quantities in region ( 5 ) are 
determined from the isentropic perfect gas relations of reference 17. (See ref. 5.) For 
the case where a value of Pg ^ is known, the quantity ag ^ is determined from the 
isentropic perfect gas relation (ref. 17) 


Vf 


a 5,f = a A,fl 




2y, 


(26) 


Corresponding frozen quantities in region (?) are determined similarly, and Ug ^ is 
obtained from equation (25). * 

The ideal test time for the expansion tube (test time is defined as the time interval 
between arrival of the acceleration-gas— test-air interface and the expansion fan (ref. 1) 
is given by the relation 



(27) 


The actual test time may be somewhat less than this ideal test time because of the early 
arrival of a downstream expansion wave. (See ref. 14.) The time of arrival of this 
downstream expansion wave for real air is not determined in the present study. 

Flow attenuation .- The air -test-gas — helium-acceleration-gas interface velocity in 
the acceleration section of the Langley pilot model expansion tube was observed (ref. 14) 
to decrease in traversing the acceleration section. A decrease in flow velocity along the 
acceleration section was also observed in recent tests (ref. 15) performed in the Langley 
6-inch expansion tube with air test gas and air acceleration gas. Thus, the effect of 
flow attenuation on calculated flow quantities in region (?) and on the post -normal- 

shock region of a test model subjected to flow in region (?) is considered herein. 

A method for determining the effect of flow attenuation on thermodynamic quantities 
in region (?) is discussed in reference 14. To illustrate this method, consider a thermo- 
dynamic quantity in region ©, such as p 5 , plotted as a function of interface velocity U 5 
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at the exit of the acceleration section. Application of the method of reference 14 is 
equivalent to a shift of point p 5 , U 5 for no flow attenuation to point p 5 , U & - 2AU 5 

with flow attenuation. The quantity AUg is the difference between the maximum and 

minimum (that is, acceleration section exit) values of interface velocity observed along 
the acceleration section. In the present program, the unsteady expansion is performe o 
the acceleration section exit (region ©) and the interface velocity U 5 changed to 
U 5 - 2AU 5 to account for flow attenuation. Post -normal-shock flow quantities 
(regions (is) and (t5)) are calculated by the shock crossing procedure to be discussed 
subsequently, wherethe free-stream velocity is equal to U & - 2AU 5 - The effect of flow 
attenuation is included for an equilibrium expansion only. 

Acceleration-gas flow quanti ties and quiescent pressure .- An important parameter 
in the operation of an expansion tube is the initial pressure of the acceleration gas P 10 - 
This pressure is the controlling factor in determining the degree of expansion in the 
acceleration section. In reference 5, a range of p 10 was determined for each U 5 with 
helium acceleration gas. Only helium was considered in reference 5, since helium was 
used exclusively as the acceleration gas in the Langley pilot model expansion tube. (See 
ref. 14.) However, more recent tests in the Langley 6-inch expansion tube (ref. 15) have 
indicated the desirability of using the same gas for both test gas and acceleration gas. 

In the present study, the conditions in region © are determined prior to calculating 
the corresponding value of p 10 required. Since the values of p 10 are relatively low 
and since the quiescent acceleration air temperature T J0 is ambient, thermodynamic 
conditions in region @ obey ideal air relations. At the interface of the acceleration air 
and test air, it is required that p 20 equal p 5 and U 20 equal U g . Hence, the con- 
servation relations for an incident shock wave into region ( 10 ) , excluding the effect of 
boundary -layer growth along the tube wall, are 


W 


10 


RT 


10 


p 10 U s,10 




(28) 


PlO 





(29) 


7 R T 

2^ Tl0 


+ ! u 


2 

s,10 


= h 20 





(30) 


, i „ „„„ „ _ u an( i tj The equation of state represents 

where the unknowns are P^g, P20> ^20’ ana u s,10' 4 

the required fourth relation. These relations are solved by iteration. An initial guess 
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of the quantity U g 1Q is made, this being 1.11 times U 5 ^corresponding to P 2 o/Pio 
equal to lo), and h 2Q is obtained from equation (30). The quantity p 2Q (which is equal 
to p 5 ) and this initial estimate of h 2Q are used as inputs to the source of thermodynamic 
properties and a value of p 20 is obtained. This value of p 2 q is used in equation (29) 
to obtain a value of P 1Q . A new (up-dated) value of U g>10 is determined from equa- 
tion (28), and if not within 0.1 percent of the initial guess of U g 1Q , the procedure is 

repeated. Iteration on the quantity U g 1Q is continued until successive values of U 
are within the desired tolerance. ’ 

If helium is to be used as the acceleration gas, as in the experimental study of ref- 
erence 14, the corresponding value of p 1Q for helium may be estimated from that for 
air. Combining equations (28) and (29) yields the expression 

p 5 = p 10 + p 10 U s,10 U 5 

For a strong incident shock, p 1Q is small compared with the product P 10 U g 1Q U 5 ; 

hence, p g is approximately equal to P 10 U g 1Q U 5 . Equating p and U- for both 
acceleration gases gives ’ 0 

( P io U Mo) He ' (*10 Vo) alr 

For the same value of U 5 , the incident shock velocities in air and helium are relatively 
close; in the limit of maximum separation distance between the shock and interface, 
these U g ^ 10 values are equal. Thus, P 10>He is approximately equal to p 1Q ^ and 
p 10,He ^ equal to 7.24 times P 10 air - 

An often employed method of measuring the velocity of a moving gas is the micro- 
wave interferometer technique (refs. 14 and 15). ]f helium is used as the acceleration 
gas, the helium behind the incident shock into region (lo) is generally not ionized and 
thus is transparent to the microwave signal. Hence, the flow being tracked by the signal 
is the helium - acceleration -gas air -test -gas interface and the quantity U 5 is inferred 
from measurement. When air is used as the acceleration gas, the microwave signal tracks 
the incident shock into region (to) and not the interface. For this reason, the laminar 
theory of reference 6 (discussed previously) is used in the present program to determine 
the U 5 from measured values of U 1Qf known thermodynamic conditions in region (lo), 
anc acceleration-section diameter and length. At the acceleration-section station where 

' max iS nearly Un ^ ty ’ t * le quantit y U 5 is equal to U g and may be inferred directly 
from measurement. 
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Calculation Procedure for Expansion Tunnel 

Thermochemical -equilibrium steady expansion. - The entrance conditions at the noz- 
zle of the expansion tunnel correspond to the conditions in region ©. As discussed pre- 
viously, the expansion tunnel flow is assumed to undergo an isentropic steady expansion 
from region to region The basic differential equation for this expansion is 

(ref. 1) 


dU = - 



sW u /R 


(31) 


which may be integrated between regions © and © to give 


^5 + 1 u 5 2 = h e + 1 u s 2 


(32) 


The left-hand side of equation (32) is considered to be known. Inputs considered 
(individually) for determining expansion tunnel flow conditions are Pg and U g . For an 
equilibrium nozzle expansion in which the quantity Ug is known, hg is obtained from 
equation (32) and the corresponding thermodynamic quantities in region © are deter- 
mined from the source of thermodynamic properties with the quantities hg and SgW u /R 
^ which is equal to s a W u /R^ as input. For the case where a value of p g is known, the 

thermodynamic quantities in region © follow from the source of thermodynamic proper- 
ties with the quantities P g and SgW u /R as input, and the corresponding value of Ug 
is obtained from equation (32). 

Frozen steady expansion.- For a frozen nozzle expansion, it is assumed that the 
flow in region © is in equilibrium, and the assumption is made that freezing occurs at 
the nozzle throat. The procedure for calculating frozen flow conditions in region © is 
similar to that discussed previously for region © of the expansion tube, whereby the 
equilibrium conditions in region © correspond to those of region © and the frozen 
conditions of region © correspond to those of region ©. The difference is that equa- 
tion (32) for a steady expansion replaces equation (25) which applies to an unsteady 
expansion. 

No zzle boundary -layer displacement thickness .- A quantity of interest is the nozzle 
boundary -layer displacement thickness. This quantity, with one -dimensional flow assumed, 
is given by the relation 


5 * = 


r geo 


' r eff 


(33) 
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where the radius of the inviscid core is given by 



1/2 

eff 


( 34 ) 


and r geo is the nozzle wall radius. The ratio (A/A*) ff 
tinuity equation for one-dimensional, steady flow 


is determined from the con- 


A\ ^5 
A / eff ' P 6 U 6 


(35) 


where quantities appearing on the right-hand side have been calculated previously. With 
the assumption that the displacement thickness at the nozzle entrance (throat) is zero 
( r geo = r eff)’ e< l ua tio n (33) becomes 


a* 


r geo 



1/2 


(36) 


Calculation of Flow Quantities Behind Normal Bow Shock at Test Model 

For some tests in the shock tube and most tests in the expansion tube or expansion 
tunnel, a test model is positioned in the test section. Hence, it is desirable to determine 
the flow quantities behind the normal part of the bow shock of a blunt test model. The 
conservation relations for a standing normal shock at a blunt body are given in equa- 
tions (15) to (17), where the subscripts 2 and 2s are now replaced by 5 and 5s for the 
expansion tube and 6 and 6s for the expansion tunnel. For an equilibrium expansion, the 
flow behind the normal bow shock is assumed to be in equilibrium; for a frozen expansion, 
the flow behind the normal bow shock is assumed to be either in equilibrium or frozen. 

For the case of equilibrium post-bow-shock flow, the conservation relations are solved, 
in conjunction with the equation of state, by iteration to obtain the static conditions 
immediately behind the shock. Stagnation -point properties are determined by using the 
assumption that the flow region from immediately behind the bow shock to the stagnation 
point is lsentropic (that is, s ks W u /R = s^W^R, where k is equal to 2 for shock tube, 

5 for expansion tube, and 6 for expansion tunnel) and the energy relation for an equili- 
brium expansion to the test section is (k = 2,5, or 6) 


V = \ + | V 


(37) 


20 



and for a frozen expansion is (k = 5 or 6) 


h t,k = h k,f + h A,f + | U k,f 


( 38 ) 


This procedure, in which Sj. jjW u ^R and h^ are known, requires usage of the AEDC 
tape. A second procedure considered, which’ makes use of the AEDC curve fits, is to 
estimate p^ k from the relation (ref. 5) 


■t,k 



r E,ks 

2 


- 1 


r E,ks 



(39) 


This value of p t k is used in conjunction with s t k w u / R as input to the subroutine 
SAVE. If the value of h t k obtained from SAVE is not within 0.1 percent of the value 
obtained from equation (37) or (38), p^ k is up-dated by the relation 


M 




known 


new 




previous 


(40) 


(where 




'known 


was obtained from eq. (37) or (38)) and the iterative procedure 
repeated^until the desired criteria on h t ^ is obtained. The stagnation -point heat- 
transfer rate for a spherical body positioned in the shock tube (k = 2), expansion tube 
(k = 5), or expansion tunnel (k = 6) is determined from the expression (ref. 18) 


v 


= 3.88 x 10 -4 


p t,k 

r n 


( h t,k Nv) 


(41) 


For the case of frozen post-bow-shock flow, normal-shock crossing relations for 
perfect air (ref. 17) are used to obtain conditions immediately behind the shock and isen- 
tropic, perfect air relations are used to obtain stagnation-point conditions. 

It should be noted that flow properties behind the normal part of the bow shock wave 
of an entry body at high velocity are equivalent to the properties behind an incident shock 
in a shock tube traveling at that velocity. In free flight, the free-stream conditions and 
flight velocity correspond to the initial conditions in region ® and the incident shock 
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velocity U g l , respectively, whereas static and stagnation conditions behind the bow 
shock correspond to conditions in regions © and (t£), respectively. 

RESULTS AND DISCUSSION 

Description of the inputs necessary to utilize the present computer program is pre- 
sented m appendix A along with a flow chart, listing of the program, brief description of 
basic subroutines, and sample printout. The accuracy and limitations of the program are 
discussed in appendix B. Results of calculations illustrating the application of the program 
to shock tube and expansion tube flows are presented in figures 3 to 20 , with figures 3 , 4 , 5 
and 18 for the shock tube and figures 6 to 17, 19, and 20 for the expansion tube. 

Flow quantities in region © may be obtained by using the basic measured inputs 
in the following combinations: 


Case (1): 

P V 

T^, and 

V 

Case (2): 

Pi’ 

Tj, and 

P2 

Case (3): 

Pi’ 

t i. p 4 , 

T 4 , and W 4 


Case (3) is useful in ascertaining the theoretical performance prior to a test and in com- 
parison of measured quantities U gjl and p 2 with predicted values from simple shock 
tube theory. The computational method for case (3) is illustrated in figure 3 where 
velocity-pressure (Ug, p 3 ) curves for perfect and imperfect, isentropic unsteady expan- 
sion of helium and hydrogen driver gases are shown in conjunction with velocity- 
pressure (U 2 , p 2 ) curves for incident normal shocks in equilibrium, real air. In figure 3 
the value of p 4 was 68.95 MN/ m 2 for both driver gases and T 4 is varied from 300 K ’ 
to 10 000 K for helium (figs. 3(a) to 3(c)) and from 300 K to 600 K for hydrogen (figs. 3(d) 
and 3(e)) The ambient air temperature was 300 K and p 1 was varied from 
6.9 N/m to 6.9 MN/m 2 . Solutions for case (3) are the intersections of the U 9 , p 9 air 
curves (generated by using 20 values of U j_ for each value of p 4 and the AEDC curve- 
fit expressions as a source of thermodynamic properties) and U 3 , p„ helium or hydrogen 
curves. (That is, the solution is obtained when U 2 = U 3 and p 2 = p ) For a helium 
driver gas and the conditions in region © of figure 3 , no appreciable imperfect helium 
effects on the predicted isentropic expansion are observed. A small effect of imperfect 
hydrogen is observed in figures 3 (d) and 3 (e). 

Shock tube performance for real air with helium and hydrogen driver gases is 
shown m figure 4, where incident shock velocity U g>1 is plotted as a function of pressure 
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ratio p^pj. These results were generated by two methods. First, two values of P 4 

(6.9 N/m 2 and 6.9 kN/m 2 ) were used in conjunction with various values of p 4 to obtain 
the range of P 4 /P 4 shown. Compressibility factors for the higher values of p 4 for 
helium and hydrogen driver gases are given in the following table: 


p 4 , MN/ m 2 

t 4 , k 

z 4 

for - 

Helium 

Hydrogen 

0.69 

600 

1.001 

1.002 

3.45 

600 

1.007 

1.012 

6.90 

600 

1.015 

1.024 

13.79 

600 

1.029 

1.051 

34.47 

600 

1.071 

1.135 

68.95 

600 

1.139 

1.282 

137.90 

600 

1.264 

1.566 


Second, p 4 was held constant at 68.95 MN/m 2 and p 4 varied from 6.9 N/m 2 to 

6.9 MN/m 2 . In both cases, Tj was equal to 300 K and T 4 was equal to 600 K. The 
curves from these two methods were found to be identical for both the helium driver gas 
and the hydrogen driver gas. Differences between perfect hydrogen (z 4 = l.oj and 
imperfect hydrogen driver gas are observed (fig. 4) to be small, and the perfect hydrogen 
driver gas yields somewhat higher values of U g ^ for a given P 4 ^P^ in agreement with 
reference 19. The improved performance expected with hydrogen driver gas, in compar- 
ison with helium driver gas, is evident in figure 4. 

Simple shock tube predictions for real air are shown for helium (figs. 5(a) and 5(b)) 
and hydrogen (fig. 5(c)) driver gases at p 4 equal to 68.95 MN/m 2 . The T 4 for 
helium is varied in 50 K increments from 300 K to 700 K (fig. 5(a)) and in 1000 K incre- 
ments from 1000 K to 12 000 K (fig. 5(b)) and for hydrogen (fig. 5(c)) is varied in 50 K 
increments from 300 K to 600 K. The value T 4 = 700 K for helium represents the max- 
imum value obtainable in the Langley expansion tube with resistance heating and the value 
T 4 = 600 K for hydrogen represents the limit of curve fitting as applied to virial coef- 
ficients in reference 5. For an arc-driven shock tube or expansion tube using helium 
driver gas, much higher T 4 values than presented in figure 5(a) are realized; hence, 
figure 5(b) represents an extension in range of T 4 to figure 5(a). At the maximum T 4 
of 12 000 K, ionization of the helium driver gas is essentially negligible. (See ref. 20.) 
Values of Pp P 4 , and T 4 being known, a theoretical value of U g j in real air may be 
obtained from figure 5. 
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Combinations of measured input for obtaining stagnation-point conditions in the 
expansion tube test section ^region (tF)j, when it is assumed that thermochemical equi- 


librium flow conditions in region (A) are known (previously calculated), are summarized 
in the following table: 


Case 

Measured 

input 

Unsteady 

expansion 

Post normal 
shock 

(1) 

U 5 or p 5 

Equilibrium 

Equilibrium 

(2) 

U 5 °r P 5 

Frozen 

Equilibrium 

(3) 

U 5 or p 5 

Frozen 

Frozen 


Similarly, combinations of measured input for obtaining stagnation -point conditions in the 
expansion tunnel test section ^region (tF)^, when thermochemical equilibrium flow condi- 
tions in region (F) are known, are summarized in the following table: 


Case 

Measured 

input 

Steady 

expansion 

Post normal 
shock 

(1) 

U 6 or p 6 

Equilibrium 

Equilibrium 

(2) 

U 6 or P6 

Frozen 

Equilibrium 

(3) 

U 6 or p 6 

Frozen 

Frozen 


The first consideration in performing a test in an expansion tube or expansion 
tunnel is to determine theoretical flow quantities for the chosen mode of operation. Such 
a procedure is necessary in order to obtain approximate magnitudes of quantities to be 
measured in the various flow regions. Because of the wide range of flow conditions that 
may be generated in the expansion tube and the long computer times associated with the 
program of reference 5, the program of reference 5 was not exercised to generate a 
family of working plots illustrating expansion tube performance. However, the provision 
of such plots would be a worthwhile convenience to the experimenter and would also illus- 
trate the versatility of such a facility. Since the present program requires much less 
computer time than that of reference 5 (present program is approximately 60 to 80 times 
faster than the program of reference 5 with a 10 species air model), working plots were 
generated for real -air expansion tube flows and are presented in figures 6 to 17. 

Various flow quantities in region (F) ^p 5 , p & , T g , M 5 , and N Re 5 ^, region (5s) 
( p 5s/ p s)’ and re f? ion © (P t ,5» p t,5’ T t,5’ h t,5’ and for r n = 2.54 cm) are 
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plotted as a function of input Ug for values of equal to 0.7, 3.45, 6.9, 34.47, 68.95, 
and 344.7 kN/m 2 in figures 6 to 11, respectively. In figures 6 to 11, the flow in region (IT) 
is assumed to be in equilibrium and there is no shock reflection at the secondary dia- 
phragm. These results are shown for a range of U g ^ from 2.1 to 4.5 km/sec. The 
upper limit on U < represents the highest value obtained to date in the Langley expan- 
sion tube using arc-heated helium as the driver gas. Also shown in figures 6 to 11 are 
values of p^Q required to produce the corresponding flow conditions. Figures 12 to 17 
correspond to figures 6 to 11, respectively, except that a totally reflected shock at the 
secondary diaphragm is included. Thus, limiting cases for these shock-wave reflection 
phenomena are provided. The results of figures 6 to 17 were obtained by using the AEDC 
real -air curve-fit expressions to determine conditions in regions (2), (2r), (5s), anc * 

(t?) and the AEDC real-air tape for determination of the unsteady expansion quantities 
of region (5). {The reader is referred to appendix B for discussion of the computational 
procedures incorporated in the present program. For these results, method (2) 

(ISAV = 2, IEXP = 1) was employed, JAC being 100.) These figures were generated by 
machine and linear line segments were used to connect adjacent data points. 

For purposes of illustration, let it be assumed that a study is to be performed in 
the expansion tube at equal to 5.4 km/sec and Mg equal to 10. Both the case of 

no shock reflection at the secondary diaphragm and the existence of a totally reflected 
shock are considered. The driver gas is unheated helium ^T^ = 300 k) and a value of 
Pl equal to 3.45 kN/m 2 is selected. From figures 7 and 13, flow conditions and the 
required p^Q for this example are as follows: 


Condition 

No shock reflection 

Totally reflected shock 

U c -j , km/sec 

2.48 

2.25 

P 5 , kN/m 2 

0.78 

0.45 

t 5 >kk 

0.76 

0.75 

P 5 , g/m 3 

3.6 

2.1 

N Re,5’ m_1 

5.6 x 10 5 

3.2 x 10 5 

p 5s/ p 5 

11.85 

12.1 

P t5 , kN/m 2 

100.0 

57.7 

T t,5> kK 

6.0 

5.9 

Pt,5’S/ m3 

44.5 

25.7 

h t,5> MJ Ag 

15.5 

15.3 

q tj5 , MW/m 2 

11.6 

8.8 

P 1Q , N/m 2 

1.9 

1.2 
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The value of U g ^ corresponding to the chosen values of Ug and Mg is obtained 
from figure 7(d) for no shock reflection and from figure 13(d) for a totally reflected 
shock. These U g j values are, in turn, used to obtain the remaining flow quantities 
presented in figures 7 and 13. At this point the range of p 1Q required to generate the 
desired values of Ug and Mg for pj^ equal to 3.45 kN/m 2 is known. The corre- 
sponding range of p 4 required to produce this range of U g ^ for a given p 1? is 
obtained from figure 5. The pressure in region (2) is obtained from figure 18, where 
the quantities P 2 P 2/ P V T 2/ T l’ h 2/*V and s 2 W u/ R (predicted by using the 
AEDC real-air tape) are plotted as a function of U g j for the values of p 1 considered 
in figures 6 to 17. 

Figure 19 illustrates the effect of frozen expansion, in comparison with a thermo- 
chemical equilibrium expansion, for several sample cases. These cases show a large 
effect of shock reflection at the secondary diaphragm on predicted frozen flow quantities. 
Such large differences are the result of the increase in dissociation in region (A) from 
the case of no shock reflection to the case of a standing shock or totally reflected shock, 
coupled with the assumption that the flow freezes in region (A). 

As discussed previously, it is often necessary to infer the test-air— acceleration- 
air interface velocity Uj from measured U s jq by using the theory of reference 6. 
Figure 20 shows flow quantities r i> r, £/ £ max> and u s,lo/Ul as a function of non- 
dimensionalized distance downstream of the secondary diaphragm for a representative 
expansion tube test. For the results of figure 20, pj is equal to 3.45 kN/m 2 , U s 1 
is equal to 2.85 km/sec, and L a is equal to 17 m. From figure 20(b), the time a 
model positioned at the test section (tube exit) is subjected to acceleration-air flow 
diminishes with increasing U 5 . The separation distance between the incident shock 
in region (lo) and the test-air— acceleration-air interface approaches the maximum 
separation distance £ max more rapidly with increasing Ug (fig, 20(c)). When the 
value of £ is essentially equal to the interface velocity Uj is essentially equal 

to the incident shock velocity U g 10 , as illustrated in figure 20(d). For this sample case, 
the interface velocity is equal to the incident shock velocity (measured) at the tube exit 
for values of Ug in excess of 5.0 km/sec. 

Several expansion tunnel flow quantities (p 0 , T 0 , Ug, Mg, N Re?g , P 6 s /P 6 , 

aiid shown in figure 21 as a function of effective area ratio (A/A*)^. Nozzle 

entrance conditions ^conditions at (A/A*)^ of unity j correspond to a representative 
expansion tube test (ref. 15) with unheated helium driver gas and air test gas having a 
value of of 3.45 kN/m^. These entrance conditions were determined by assuming 
no shock reflection at the secondary diaphragm, no flow attenuation in the acceleration 
section, and a thermochemical equilibrium expansion to region (5). The tunnel results 
were generated, assuming quasi one -dimensional flow, by increasing input U R from 
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5.3 to 5.5 km/sec in increments of 50 m/sec and from 5.50 to 5.57 km/sec in increments 
of 10 m/sec. These tunnel predictions also assume a thermochemical equilibrium 
expansion. 

The results of figure 21 may be used to obtain a rough estimate of inviscid test 
core diameter and corresponding nozzle exit flow quantities for given entrance conditions. 
For example, use the dimensions of the Langley expansion tunnel configuration and 
assume that the conical nozzle has an entrance diameter of 7.62 cm, an exit diameter of 
63.75 cm, and a length of 1.59 m. Hence, the geometric area ratio (A/A*)g, eo is 70 
and the nozzle half angle if 10°. Now, let (A/A*) eR > be equal to (A/A*)g eo , corre- 
sponding to zero tunnel wall boundary-layer displacement thickness. The quantities M g 
and Np e g corresponding to this first estimate of (A/A*) eR may be obtained from 
figure 21. From these quantities, the displacement thickness at the nozzle exit may be 
estimated by using simple expressions in terms of M g and N Re g based on nozzle 
axial distance from the nozzle apex. (See ref. 21.) (Eq. (7) of ref. 21 was used to pre- 
dict 6* for this example, where y E g was equal to 1.4.) Having determined an initial 
estimate of 5 * at the nozzle exit, a new value of (A/A*) eR is calculated where the 
effective exit diameter is the nozzle (geometric) exit diameter minus 26*. At the nozzle 
entrance, the effective entrance diameter is assumed equal to the geometric entrance 
diameter and hence a constant. From figure 21, M g and N Re g corresponding to this 
new value of (A/A*) eff are obtained and a second value of 6* is calculated. This iter- 
ative procedure is continued until successive values of (A/A*)^ are within a desired 
tolerance. For this particular example, iteration to within 2 percent on (A/A*) eff 
(three iterations required) showed that the inviscid test core diameter is approximately 
48.5 cm. The corresponding values of M g and N Re g are 13.2 and 7,4 X 10^ per meter, 
respectively. 

CONCLUDING REMARKS 

A computer program written in FORTRAN IV language which determines shock tube, 
expansion tube, and expansion tunnel flow quantities for real -air test gas is presented. 

This program permits, as input data, a number of possible combinations of flow quantities 
generally measured during a test. The versatility of the program is enhanced. by the 
inclusion of such effects as a standing or totally reflected shock at the secondary dia- 
phragm, thermochemical -equilibrium flow expansion and frozen flow expansion for the 
expansion tube and expansion tunnel, flow attenuation in traversing the acceleration sec- 
tion of the expansion tube, real air as the acceleration gas, and the effect of wall boundary 
layer on the acceleration section air flow. The effects of several of these phenomena are 
demonstrated by sample calculations. 
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The usage of the program in preparing the shock tube and expansion tube for testing 
is illustrated from working charts. These charts, which were generated with the present 
program, cover a wide range of flow conditions and should prove to be a convenience for 
the experimenter in such facilities. The expansion tunnel phase of the program is 
demonstrated by a sample calculation. This program is similar to, but more compre- 
hensive than, the real-gas mixture program previously available for air test gas. The 
present program requires approximately 1/70 the computer time of the gas-mixture pro- 
gram with no appreciable sacrifice in accuracy. 

Langley Research Center, 

National Aeronautics and Space Administration, 

Hampton, Va., September 4, 1974, 
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COMPUTER-PROGRAM INPUTS, FLOW CHART, AND 
LISTING WITH SAMPLE DATA PRINTOUTS 


The present program is written in FORTRAN IV language for Control Data series 
6000 computer systems. Minimum machine requirements are 110000 octal locations of 
core storage. The FORTRAN NAMELIST capability is used for data input with INP as the 
NAMELIST name. The units for the inputs which are physical quantities are given in the 
section entitled "Symbols." The program symbols and a brief description of the inputs 
necessary to utilize the computer program are listed as follows: 


Program symbol 
PI 

Tl 

USl 

P2 

P4 

T4 

U5 

P5 

U6 

P6 

DIA 

DIAT 

DIAN 


Description 

Pressure of quiescent test air in region (l) 
Temperature of quiescent test air in region (T) 
Incident-shock velocity into region (T) 

Static pressure in region (J) 

Driver-gas pressure in region ( 5 ) 

Driver-gas temperature in region (T) 

Velocity in region (?) 

Static pressure in region (?) 

Velocity in region (?) 

Static pressure in region (?) 

Shock tube or expansion tube diameter 
Nozzle entrance diameter 
Nozzle test-section diameter 


L-9700 
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XIS 

XAS 

TW 

BNR 

RUN 

NDRIV 

LB 


ISTET 


LF 

LG 

ISAV 


Distance downstream of primary diaphragm 
Distance downstream of secondary diaphragm 
Model surface temperature 
Model nose radius 


Facility test number 


NDRIV - 0 denotes helium driver gas 

NDRIV = 1 denotes hydrogen driver gas 

LB = 0 denotes inputs pp Tp and U g 4 used to find region (2) 
quantities 

LB = 1 denotes inputs pp Tp and p 2 used to find region (5) 
quantities 

LB = 2 denotes inputs Pp Tp p 4> and T 4 used to find 
region (5) quantities 

ISTET = 0 denotes only quantities in regions (T), (2s) , and (ir) 
determined 

ISTET = 1 denotes shock tube and expansion tube flow quantities 
determined 

ISTET = 2 denotes shock tube, expansion tube, and expansion tunnel 
flow quantities determined 


LF = 1 denotes 
LF = 2 denotes 


Ug is basic input in region (5) 
Pg is basic input in region (H) 


LG = 1 denotes 
LG = 2 denotes 


Ug is basic input in region (F) 
Pg is basic input in region (F) 


ISAV = 1 denotes use of AEDC real-air tape (subroutines SLOW 
and SEARCH) 


ISAV = 2 denotes use of AEDC real -air curve fits 
(subroutine SAVE) 
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INU 

IEXP 

JAC 

LAC 

IREP 

U5I 

NVEL 

DELU5 

LREP 

NUMU6 

U6I 


INU = 1 denotes use of AEDC real-air tape in determining flow 
nonuniformities in region (2) 

INU = 2 denotes use of AEDC real-air curve fits in determining 
flow nonuniformities in region (^) 

IEXP = 1 denotes use of AEDC real-air tape in determining 
unsteady expansion process for expansion tube 

IEXP = 2 denotes use of AEDC real -air curve fits in determining 
unsteady expansion process for expansion tube 

Number of enthalpy increments used in unsteady expansion from 
region (X) for IEXP = 1 (300 maximum) 

Number of pressure increments used in unsteady expansion from 
region (X) for IEXP = 2 (100 maximum) 

IREP = 1 denotes only a single value of Ug is of interest for 
given region (A) quantities 

IREP = 2 denotes several Ug of interest for given region (A) 
quantities 

Velocity increment for IREP = 2 

Total number of Ug of interest for IREP = 2 (10 maximum) 

Difference between maximum and minimum interface velocity along 
acceleration section 

LREP = 1 denotes only a single value of Ug is of interest for 
given region (5) quantities 

LREP = 2 denotes several Ug values of interest for given 
region (?) quantities 

Total number of Ug of interest for LREP = 2 (10 maximum) 

Velocity increment for LREP = 2 
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LD LD = 1 denotes no shock reflection at secondary diaphragm 

LD = 2 denotes existence of standing shock at secondary diaphragm 
for ISTET = 1; for ISTET = 0, LD = 2 denotes conditions in 
regions ( 2 ), (2s), (t2), and (2r) determined 

LD = 3 denotes existence of totally reflected shock from secondary 
diaphragm 

LD = 4 denotes all three cases (LD = 1, LD = 2, and LD = 3) are 
performed 

To minimize the number of inputs required for running cases on the computer, inputs 
are assigned values within the program. These assigned values, which represent values 
most commonly used for data reduction in the Langley 6 -inch expansion tube, are as 
follows: 


Program symbol 

Tl 

DIA 

DIAT 

DIAN 

XIS 

XAS 

TW 

RUN 

BNR 

NDRIV 

LB 

ISTET 

LF 

LG 

ISAV 

IEXP 

JAC 

LAC 


Assigned value 
300. 

0.1524 

0.0762 

0.6452 

4.65 

16.98 

300. 

1.0 

0.0254 

0 

0 

1 

1 

1 

2 

1 

50 

50 


32 



APPENDIX A 


Program symbol 

IREP 

NVEL 

U5I 

LD 

INU 

DELU5 

LREP 

NUMU6 

U6I 


Assigned value 
2 
8 

400. 

4 
2 
0 . 

2 

5 

50. 


Each of these values may be changed from its assigned value by a card change or inclu- 
sion in the NAMELIST INP. For a given LB, only the basic parameters p^, Tp and 
U s i (LB = 0), pg (LB = 1), or and (LB = 2) need be included in INP. Similarly, 
for a given LF, only U 5 (LF = 1) or p 5 (LF = 2) need be included in INP; for a given LG, 
only Ug (LG = 1) or Pg (LG = 2) need be included in INP. 

Three options exist for determining flow conditions in region (?) for LF equal to 1 
or LF equal to 2. These options, in terms of inputs ISAV and IEXP, are 


Option 

ISAV 

IEXP 

(1) 

1 

1 

(2) 

2 

1 

(3) 

2 

2 


Thus, for option (1), the AEDC real-air tape is used as the source of real-air thermo- 
dynamic properties necessary to generate tables of h as a function of a“^ required 
for numerical integration. Corresponding flow properties in region (5) are also obtained 
from the tape. For option (2), the tape is used for the numerical integration and for 
obtaining conditions in region (?), whereas real-air curve-fit expressions are used to 
obtain corresponding flow properties for the other flow regions ^that is, regions (2), 

© , ©) , (© , and ©) . Curve -fit expressions are used in option (3) for the integra- 
tion and determination of corresponding properties. Option (1) will provide the highest 
accuracy (appendix B) in calculated flow parameters and demand the most computer time, 
whereas option (3) will have the lowest accuracy but fastest computational time. 
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The basic subroutines of this program are as follows: 

(1) SLOW - determines imperfect, real-air thermodynamic quantities p, p, h, T, 

a, Z, y E , and Z* from AEDC real-air tape for given sW u /R and any one of 
the thermodynamic quantities 

(2) SEARCH - determines imperfect, real-air thermodynamic quantities p, sW u /R, 

T, a, Z, y E , and Z* from AEDC real-air tape for given p and h 

(3) SAVE - determines real-air thermodynamic quantities from AEDC real-air curve-fit 

expressions with combinations 

(1) p and sW u /R 

(2) p and p 

(3) p and h 

(4) p and h 

(5) p and T 

(4) VISC - computes real-air p for given p and T 

(5) BDT - computes virial coefficients for helium or hydrogen for given T 

(6) SOLUT - given (p 2 , U 2 ) array and ^p 3 , array, finds solution to curves 

(7) SC - iterative procedure for solving conservation relations for a moving normal 

shock 

(8) SNS - iterative procedure for solving conservation relations for a standing shock at 

secondary diaphragm or a normal bow shock at a model, including stagnation-point 
conditions 

(9) SIMR - computes \ (^-J / by Simpson's rule 

J \ a / s -w u /R 

Langley Library Subroutines ITR1, ITR2, FTLUP, and DISCOT are used with this 
program and are presented as appendixes C, D, E, and F. 

A flow chart of this program is given on the following pages. 
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appendix a 


A listing of this program, including subroutines and comments, is reproduced on the 
following pages. 


17fp 

*47 ?n 

L I NFT.NT ( ?^ r, 00 ) . 

RUM r S ) , 

REOUFST «TAPF8»HY(»y o 71^1 l .^OL 

Rr W I NID ( TAP^e ) * 

SFTINDFo „ 

Lf-Oo 

SP PR I NT (OUTPUT . 3 1 « 

UNLOAD (TAPE© 1 « 

1 T o 9 

f.PPR I NT ( Hi JTPUT « 7 ) 9 
UNLOAD < TftP^R 1 t 


JHP. , i ,07no, 1 1 5nnn , pnnno 0 at]P7 

USERoMILLFR* FhARl/S G III 000*,oFF7Fn 


r 

c 

c 

c 

c 

c 

c 

c 

c 

c. 

r 

c 

c. 

c 

c 

0 

c 

c 

r 

c 

r 

r 

c 

r 


PROC-PAV let ( INPUT .OUTPUT ♦TAHF^ TNOI IT *TAPFft = nuTPUT . TAOPR 1 
niMFMRTON y<4>, 7(9). U(4). VM1« 'P < A ) ■» N°(M 

DIMENSION T A RHP ( 300 ) * TA"JM700), TARP(inr), 

DImfnSION pr?lll.T(?U !N(A), DRK I 1 ) 

DIMENSION T*PTH^I. TAnPl(^). TAP71 (=<■>>, T«RH1< 

Orw^MS I ON TftPA!C« n l. T ARi !l { *-> ) . yA ' 1 " > 

D I 1 ON US 1 t < P*" 1 > • I 1 ? t ( ? r > « o? 1 t ?0 > , ^ 

DlMFMSrON VSL*^>. 

. A , y<<M , QXP(SI. DYH(«M, PWl'l. OVH( = ,. WlM. t=V A(C) 

RPAL MSI , w? , . MY , ><M . VM«i . NO , M A , ««=r , v^ce , v^r.trr , MO , M?n 

pcAL IKi.M^.MV.M^C.MA're.MClO 

FX7CONAL FOFy , FQFa ,F A F«^,mPAX . r ° F ° y *^ P ’ "L, y , 

COMMON 
COMMON 
COMMON 
Common 
common 
Common 

Common 


I COUNT 9 I MF T (?J»NA,A^AD,MF,vr 4 RAP « |_. POOF 4 nP L' u T R A\/ 

/R] K 1 / n T 4 » F T 4 . RHOO 

/PLK7/ HT I |CT I |T 1 , ovr>! , nr t 1 

/RI..K7/ Tl .OiAM4.W4.T4.P4.nl 

/RL K4/ |.F,N0N .LUiMAD I VtLP .LP*LG 
/OLK^ / SR «T| I , A T * t f » r *t * J < ♦ P7 . ISP 

Common / n LKS/ nC TA1 » nFT ^ .. ... 

nA mp l 1ST /IMP/ T1 ,Pl .(IP1 ,r» ? ,l.R,LO.LF.LP.'l=,P^.^.nA.P/>,T4.1flr,PNN. 
^TFT.nU.MnPtv.x^.yA^T^P^.'^v.^vr.uFt.locn.wr, . „ n T A- . n T 

?AN ,LPE D 9 NUMUfi « UR 1 .JAC.OFlm** 

CALL D a YT f M (RfRULTI 


c,Hnrx TURF PHAFF 

NQPTV = 0 DENOTES IMP^RFFCT HELIUM PiRIVFP GAR 
NDR I V” 1 D^notfr IMPPRFFrr HYnpo^w car 

LR=0 DFNOTFS SHOCK TURF INPUTS Pl.Tl.UF] 

lR - 1 DFNOTFS RHOCK TUFF 1N D| 'T C ni.Tl.o? 

L n-p DFNOTFt; SHOOK Tl.R r I N°UT C P 1 <, T 1 . P4 * T 4 

XI R IS niRTANCF nOWNRTRF^M trp 0 M PD ] M A R Y otaphRARm 
XAS IS OISTANCF DOH/NSTRfam rPOM rfconDARY n | A PHP A r M 

OTA IS SHOCK TUP r OD EXPANSION T'-JPF pIAmFTfO 

PI AT IS N077LF THROAT PIASTER 
pi AN IS NOZ7L. cr TFRT SF FT ION o \ Ay- 

ISTFT DFNOTFS OH A SF ( c - ) CALCULATED 
IsT p T = 0 DFNOT^F chOCK TU Qcr PH A SF onl v 
| ST ft T =I DFNOTFR EXPANSION TMP r PHARF 

^ TFT= ? nrNOT^R f yp a mR t on tunnel ^hasc 

t ^4\/=! OFNOTFR URF of R-AL a ! P TADr f R L ow * r - A PPM ) 
IRAV = ? OFNOTFS USF ArpC CURVE f 1 TR ( R A ye* > 


CfnT 


A 1 

A 7 

A 7 

A 4 

A c 

A f- 

A 7 

A F 

A P 

A 1 " 

A 1 1 

A 1 7 

A I n 

A 14, 

A 1 R 

A t * 

A 1 t 

A 1 P 

A 1 ° 

A 

A 7 1 
A ?? 

A P'* 

A 74 

A 7F 

A 

A ?7 

A 7R 

A 7P 

A *»o 

A *> 1 

A -»7 

A -> 7 

A ■'* A 

A tF 

A *9 E 

A ->7 

A ^R 

A 

A A n 

A 4 1 

A A 7 

A 4 ^ 

A A 4 

A A c 

A A * 

A A 7 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


r 

r 


l 


? 


i nu= i dfwotfs usf tap^ fop flow nonumtf^qm f tv oalt [k* prr. i on ? 

INU = ? DFNOTFS USF OF CURvr FITS cor f LO i.i WnNIJM f FORM j T V T m RrofOM ? 

LO=i dfnoTFS i nc I nc"N t Shook only 
LD=? OFNDTF^ STANDING SHOOK ONLY 
LD-T HFNOTFS RFFLFCTFO Shook ONLY 

LD = 4 DENOTES I NC T DFNT * ST AnD T NO* AMO PF r L rr TPD c,hookp 

FDD r sTFT=0 ANA LH = ?, COMO J T T ONS T M PFAf^e nrTFOM j mfo 

IFXP=1 DFNOTFS US P of TAPf fop wnSTFADy Pyn/iNjc.|OM 
IFyp-p DF NOTES US P OF CU»VF FITS Fpo UNSTEADY fyP A NS T om 

JAO IS NUMRFP OF I NO PF mf \j T f ijsFD In IINST^Anv rynflKK|OM roc jeryn-i 
JAO HAS MAXI M UM V/ALUF OF ^no 

I AC IS NUmRfP of T n C PF M f m T S USFO in IJN^Tpapv c yn a n f j om rnn 7 Fyn-o 
I A C HAS MAXIMUM VALmf of 1 np 

OFLU^ TS ATTFNuATIOKJ in I mjfOf A C^ V^LOOITV rf, m/cct r 

IPcp = i DFNOTFS S I NGL.F VAL ( F OF *jf ^f jmtfppst 
JR rp=? DFNOTFS SFVFPAL IF OF TNTFPfst 

US! IS US INCRFMFkjt fop iQFPr? 

NVFL IS TOTAL NUMRFP OF l.fF OF iNTcppsy rnp fpcp = ? 

LPFP= 1 DFNOTFS SINOl^ \/Al< OF tjft OF Jk^t^P^ST 
LPFPr2 DFNOTFS Sfvfral US Of INTFprST 

US T IS US !NOpFMcr NT pop I QPO-? 

Nimjf) IS TOTAL Nijwnrp of , j* OF j MTcprCT foh L piro-p 


TT = R 
NV = Q 

Pll=R « l 434E + 1 

l*=pp.Qft7 

MM = 0 

PFAO { 5 *?34 ) I N 

US 1 =P2 = PAzT4RF = pq t |jfrp^-DFL(F = ^ | n 

NN=NNN=L0=NOPI V=0 

NMN = PIJN~ 1 B T p T - L F~ J F V P = ,_ 0 ^ I op = 1 

I SA\/r f PFP = LP^P= I \H Jr 3 

LO = 4 

NVR_ =8 

NUMrjft = F 

JAO 3 I AC=FO 

T I =TW=30O # 

HI A= # 1 RP4 

DT A? =. 07ft? 

Dt AN=.ft4^3 
X I S = 4 • ft 5 

X A S= ift.oe 

BNQ 3 ,0254 

U5I=400. 

US T =F0 ♦ 

RFAD (^UMP) 

IF fFNDFlLF 5 ) 144,3 

CONTINUE 

PPTNT 235, PFSULTM) 

PP I NT 234, IN 
PP T NT 148 
p P TNT 140 
PP I NT 150 
PP I NT I FI 


A o 1 
A P? 
A B~> 
A fla 
A OK 
A P* 
A 07 
A PP 
A PO 
A On 
A n 1 
A op 
A on 
A 04 
A OF 
A Oft 
A 0-> 
A OF 
A oq 
A 1 nn 
A T ft t 
A 1 n P 
A 1 no 
A 1 nd 
A t OF 
A 1 nft 
A 1 n^ 
A 1 r >8 
A t no 
A 1 i n 
A 1 T t 
A 11? 
A 1 1 o 
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PRINT 1 F? 

PplMT J 53, P UNI »P1 <T! ♦ U F 1 *D?iP4»T4*v[ f Nin|A*T^AVi ! MH , t_ n 
IM^T( 1 > = !^ p T f ?.) “0 
LC On^- l 
SSU*!*0 o 
LU = n 

HWri ©004ftF+7*TW 
PhOI = ( PI *W 5 /(RU*T I ) 

HI =7 0 49# <PU/W)*T! 

A] -SORT { 1 ©4* (RU/W )*T] ) 

IF (LRoPQa?) GO TA (i 
r 

r iNPirTS P! g ti < and ij<1(lp=o> 

r INP'fTS P I o T ! « anp PP ( L Q = 1 ) 

r 

CALL SC (PH0?,U2«P? ( H?,PH01 ,US1 iHMPAV) 

SPR“^R 
T? - T I I 
A P = A I 
7 ? = 7 ! 
r,AM?=r, f 
M3 =uP/A7 

mc i sirs t /a i 
ppp-o 0 n 

CALL Vise <T? ,P?g\/IG? 1 
IP (V^?o r 0 6 UO) CO TO 7 

rf^phop^up/v I s? 

7 CONTINUF 

GO TO St 

INPUTS P4g T A g Pig AMO T 1 (LR-? ) 

LI j=po 

p=O 0 11 434F+7 
IF (MOPTVpFOoM GO TO F 

HFLTUM 0RIVFP GAS(NOPIV=0> 

H'I»PT = ?0 s 
cvp! = t oS 

SRFF=4o0O?4 
GAm A ^ t o ftftftft7 
'HfA = 4o003 

PHOG= (P4tf W4 )/ < R»T4 ) 

ALOW=o70*PHOG 
GO TO ft 

HvnPOG^N oRTVrp GAS<wODf>/=l ) 

HWRT=^o5 
CVR T -2 o5 
SRFF=-1 o036S 
GAM4= 1 o 4 
W4 = P o 0 t 6 

RH0G= ( P4*W4 )/<R*T4 > 

AL0W=oB 0*PHOG 
ft AUP=1 „05*RHOG 

0FLTX= < AUP— ALOW ) / t 00 „ 

Fi =g1F-6 

CALL BDT (PIT4oCT4 gDBT4 gDCT4 gO?BT4 ,OSCT4gT4 \ 

RH04 - I o?*PH0G 

CALL 1 TRI (RHOAg DFLTXgFOFy pFI * F t «?ri% tConp) 

IF fICODE) 7*10*7 
7 GO TO <099 pOqP>p f COOP 

a PRINT 1B4 

GO TO 1 


A M 4 
A 1 !*= 

A 1 I F 
a n? 

A 11 * 

A IIP 
A tflft 
A 1 ? 1 
A ! PP 
A 1 P' 9 
A 1 ?4 
A J 
A 1 Pft 
A t P" 7 
A 1 PP 
A t 7° 
A 1 pp 
A pi 
A t 77 
A 1 77 
A 1 74 
A P e 
A t 7ft 
A t 7 -t 
A 17 0 
A I 70 
A t 4 n 
A ! A I 
A 1 A 7 
A 

A 144 
A UC 
A 1 4ft 
A 147 
A 1 4S 
A 14° 

A 1 cr ri 

A 1 Ft 
A 1 Ff 
A 

A 1 F4 
A I Ff 
A t F ft 
A IF*? 
A 1 f« 
A ! fq 
A T ftp 
A 1 ft 1 
A T ftp 
A 1 ft 7 
A I ft 4 
A t ft F 
A I ftft 
A 1 ftT 
A 1 ftP 
A 1 ftO 
A 1 70 
A 171 
A 1 TP 
a 1 77 
A 1 74 
A 1 7F 
A 17ft 
A ] 77 
A 1 7R 
A 1 7° 
A t BO 
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9 


1 0 


1 1 


12 
I 7 

14 

15 

16 


1 7 
! 8 


to 


20 

?! 


PRINT 155. TCODF 
GO TO ! 

Z4 = 1 .+RH04*PT4+RH04**2*CT4 

H4= <R*T4/W4 )* (HWPT+RH04* f RT4-T4*ORT4 >+ (FH04**7/7* )* (7 , + r T4-T4*OCT4 
1 ) ) 

S4Q-rVRI*ALOG(T4 >-AL0G(RH04 1 -PH04* ( R T4 + T4 *rvRT4 ) - ( RH04#* 2/2 . >* fTT4 + 
1 T4*DCT4 )+^RFP 

CVR=CVR1-T4* (RH04* ( 2* *DBT4+T4 #D2R T4 >+ (RH04 **?/?. )* ( 2* *DCT4+T4 »D20T 
14 ) ) 

PPTR= ( RH04*R/W4 )* (1 > +RH04 # ( BT4 + T4 *nRT4 ) + <RHD4**2>* f TT4+T4 *OC T4 ) ) 
PPP T = < T4*R/W4 )* < l # +2. *RH04*BT4+3.*RH04**7+rT4 1 
.44 ~ SORT (PPRT+ ( (T4*W4 ) / { C VR*R*RH04*»7 ) )*ppto**2 ) 

TART 1 ( 1 )=T4 
T ARP I ( ! ) =P4 
TARR t <1 ) =RH04 
TAR71 ( I ) =74 
T ARM T ( 1 ) -H4 
TARA I { I ) = 1 ./A4 
TSC = ALOGt 0(T4 ) 

OF L T=T5C/50. 

NU= 1 

DO H 1=2.50 

TART I ( I > - TSC— FLOAT f I -1 >*OFLT 
TART! ( 1 ) =10.** TART I ( 1 ) 

CONTINUE 
4UP= 1 * 1 *RH04 
ALOW= 1 * E — 6 

DELR= ( aup-alow )/200 # 

RT=PH04 

DO I 7 1=2*50 

TI=TABT1 ( I ) 

IF (TI • LT « 3 • > GO TO 18 

CALL BDT ( RT I . CT I « OR T I , DCT T * D2BT I . 02CT I . T T > 

CALL 1TR2 (R! . ALOW . AtJP . DFLP . FOFR * F ! .FI .40(1, ICOOF) 

IF (TCODF) 12.16.12 
GO TO ( 13*14.14.15) . 1C00F 

PRINT 154 
GO TO 1 

PRINT 155, T CODE 
GO TO 1 

PRINT 156. TCODF.Pl ,OFLR 
GO TO I 
TARRI ( ! )=RI 

TARZI ( I >=1 *+Rl *BT 1+PT **2*CTT 
TARP! ( | )=TI* (R/W4 >*PT*TAR7T ( I ) 

T ARM! fl)=(RfTI /W4 )* (HWRT+RI* (0T I -T f *0RT I ) + (Rl **2/2 • >* ( 2 , *C.T I -TT *On 
1 T I M 

C V I P = C VP I — Tt*{RI* C2.*DBTT+TT*D2RT| ) -MR I **7/7* ) * { 2 , *DCT ! +T I *D2CT I ) ) 
PPTR ! = (RI*R/W4 )* ( 1 ,+PT * CRT I+T!*DRT I)+(P] **? )*( OT t + Tl*OCT I) ) 

PPRT ! = (TI*R/W4 ) * C | • +2 ♦ *R T *RT I+3**R1**2*CTM 

TARA I C 1 )=1 •/(SORT (PPRT|+f (T|*W4 ) / ( CVTR*R*Pt ** 7 ) j*ppTPT**7 ) ) 

MU-Ntf+1 

CONTINUE 

CALL SIMP (TARHI .TARA I ,NU.NU.TABAN5 1 
PRINT 157 , 

no io i - i . nu 

PRINT t 5R. TARP I (I ) *TAQT I ( ! ) . TARPM T ) .TAB7T ( t ) ,T ARHT ( f ) t TAPfl I ( T ) ,T 
1 flRAN c < I > 

CONTINUE 
MS= 1 *4 
DFLS=#2 

CALL ITRl (MS. DFLS.FOFMS.5j ,E 1 .20n. tCOOF) 

if ( ! code > 20 . 23.20 

GO TO (21.22.22). ICOOF 

POINT 154 

GO TO 1 


A 1 fl| 
A 1 R? 
A 123 
A t R4 
A 1 or 
A 1 4* 
A 1 A"* 
A 1 R8 
A 1 po 
A 1 qn 
A 19! 
A 1 92 
A 193 
A ? 94 
A lo^ 
A 1 06 
A ? 07 
A 1 OR 
A 1 OO 
A 200 
A 7nt 
A 202 
A 2n3 
A 204 
A 205 
A 2*0* 
A 207 
A 2oR 
A 2 oq 

A 210 
A 71 ! 
A PT 2 
A 217 
A 714 

A 2! 5 

A 216 
A 217 
A P 1 R 

A 219 
A 7^0 
A 771 
A 797 
A 7P - * 
A 274 
A 275 
A 276 
A 777 
A 27P 
A PPO 
A 279 
A 77! 
A 77*3 
A p'*'* 
A 774 
A 775 
A 776 
A 77 7 
A ?*»P 
A ?7Q 
A 74 0 
A 74 1 
A 747 
A 74 -» 
A 74A 
A 74 5 
A 746 
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?? PR ! NT 1 5*5 « ICODE 

GO TO t 

23 A 1 =SORT <401 oB39*Tl ) 

USMAX= ! 0 1 *A 1 ^MS 

USM T N= o 65*USMAX 

USt 1 ( 1 ) =USMAX 

DEL l » ( USM AX— USM !N)/20o 

PRINT 159 

no t = f « 30 

US1 ! ( I )=USM AX-FLOAT ( ! -1 1*nr|_l 

CALL SC (RH3 Ml) oU2I U ) o°?! M ><H?H I) oRHOt * US ! 1 (1 ) « P! *H 1 9 ? SA V > 
PR TNT 160, PP 1(1) *RHPI m,H2l(l ).U?MI l^l I II) 

?4 CONTINUE 

CALL 50LUT (TABAN^.TARPI ,U?hD2I ♦NU*?0*UPoO > 

P2=P ' ' 

UP=UP 

US 1 = (P3-P1 ) / (RhOI *1 r3 ) 

MSI =US 1 /A 1 

H3 = H t +• o 5*US 1 <USl-U?>**3 

GO TO (25«?6>* TSAV 

P5 CALL Search (O? 9 rho 2 ,H2 9 C.PP g T?, A3 *7 ?*GAm 3 9 7^3 g T ^P ) 

GO TO 37 

36 CALL SAVE {Pp , RH02 * H3 * S3Q g T3 « A3 ♦ Z? « GAM3 « 7 ) 

ZSP=7P 

37 MPsUP/AP 

RFP=OoO 

CALL VISC (T2, PP g V I S3 ) 

IF < VI S2oF 0 6 1 oO ) GO TO 38 
PF?t RHO?«U?/V T ^P 

38 CONTINUE 

IF (LBoNEoP) GO TO 31 
!F (NORIVoFQoO J GO TO PP 
PR T NT 181 

GO TO 30 

pn print 16? 

30 PR T NT 163 

PRINT t 64 

PRINT 165, P4,RH04,T4,H4,«.4R,?4,A4,W4 

31 PRINT 147 
PRINT 166 
PRINT 147 
PRINT 167 

PR TNT 168, P?» PHQP ,T2,H?,^?R, 7? d OAM3 , A? ,11?, w?,OP? 

PA P = °P/P ] 

PAPHO-RHOP/PHOt 
RA T = T2/T 1 
RAH—H3/H 1 
PA ft - A?/A 1 
PRINT 169 
PRINT 170 

PRINT 171 o RAP * PARHO *PAT © PAH o RAA 4 MS 1 g US 1 
C 

C SHOCK TUBE TEST T I ME -REFERENCE MfRaSIPHY? OF FLUIOSqSFPT 1963) 

C 

PRINT 1 7? 

PRINT 173 

IF f MSI *GF*4 • • ANOaMS 1 oLF d 1 A o 1 GO T* ?? 

IF (MStoGTol4 0 ) GO TO 33 
PRINT 174 
GO TO 55 
C 

c XLMAX IS MAXIMUM SFPARAT T ON D 1 ST A MCE- SHOCK TO INT^RFATF 

C XL TS SEPARATION D I S T ANCF- SHOCK TO I NTEPF A CF 

C 

C LAMINAR case 

C 


A 347 
A 34 0 
A ?4Q 
A 3** 

A 36 1 
A ?R? 

6 3^7 

A 3^4 
A 3^er 
A .3^6 
A 3*7 
A 3*8 
a ?*o 
A 360 
A 36 T 
A 363 
A 36** 

A 364 
A 36* 
A 366 
A 367 
A 363 
A 369 
A 37* 

A 371 
A 373 
A 373 
A 374 
A ?7c: 
A 376 
A 377 
A 370 

A 37* 

A 38* 
A 30 1 
A 303 
A 333 
0 304 

A 3«c 
A ?«6 
A ?R7 
A 3Rp 
A 300 
A 30* 
A 30 1 
A 303 
A 307 
A 3*4 
A 305 
A 306 
A ?97 
A 39* 
A 390 
A 70* 
A 7* t 
A 7*3 
A 7^7 
A 7*4 
A 7o5 
A 706 
A 707 
A 70S 
A 709 
A 71 * 
A 71 1 
A 713 
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32 XLMAX = P1 *0! A**?*<3.06-*2ns6*MSl +R.OORF_7 * m <:i A 7)7 

GO TO .14 A 1| 4 

11 XLMAX = PI *0t A*#?* ( .R723-7#4B8E-7*MS1 1 A *M 6 

34 BETA t = X IS*RH01 / (? .*XL m AX*RHO? ) A it * 

RPTA? = 2 •♦RHO^/PHOI A If 7 

AXUP=* 999999999 a 7tR 

AXLOW^.OOOOl A It 9 

OFLTAX= (AXUP-AXL0Wt/lOO. A 7*o 

E1=,lE-6 A 321 

AX= * B A 7?? 

CALL ITR 2 ( AX*AXLOW« AXUP « OFL T A X • FOF A X * F 1 .FI t 200 * ICOOF) A !?! 

IF ( ! CODE ) 7 f 35 • 7 A 7?4 

C A 7pe 

C RXL TS RATIO OF .XL TO XL MAX A 726 

r ft 77"> 

3 F RXL=AX**7 A 

XL=RXL*XLMAX a 779 

C A 17^ 

C TAUT I S IPEAL TEST T t MF A 77t 

C A 

TAUt =RHOt *X t S/ (PHO?*i ;2 > A 777 

c A 114 

C RX TS SORT OF US 1 *T Au/XL M A X A 77 B 

C A 376 

PXUP=.P99Rooqqo A 777 

RXLOW= *00001 A 77 R 

DELTRX= (BXUP-BXLOW>/t 00. A 77 Q 

BX^*f A 34 ^ 

CALL ITR? <RV*BXLOUURXUO*DFLTBX<FOFRX,Ft «F1 Tr.OnPt A 7* t 

IF (ICOOE) 7*36*7 A 741 

36 tau-rx*«?*xlmax/usi A 747 

UT^XL/TAU A 744 

C A 74 S 

C TURRULFNT CASF A 746 

C A ?47 

IF (MSI .GF.4..AN0*MS1 .LT.tO. ) GO TO 37 A 74 ft 

IF (MSUGF.tOu GO TO 7B A 7 ao 

POT NT 174 A 7c;n 

GO TO B5 A 7«t 

37 XLMAXT= (PI ***2F )* (HI A** 1 *2S ) * ( S • ?72 C >-*7B1 + ++? ) A 7R3 

C-0 TO 39 A 3F3 

3R XLMAXT= (P1**.2S )* (014**1 .?F )*< 1 , 3464^*0301 74*MS1 > A 7^4 

39 OELAXT^OFLTAX A 7BS 

AXT=,E A < 7 ^* 

BFTA 1 =X I S*RHG 1 / (?#*XLMAXT*RH 02 ) A 7^7 

CALL ITR? ( AxT t AXL0UUAXUO»0FLAXT *FOFAXT«F I , F| «?0r», ICOOF ) A 7BF 

IF ( T CODE ) 7,47*7 a 7*^0 

C A 76* 

C PXLT IS RATIO OF XLT TO LTMAXT ( TlIPPULFNT CASF) A 361 

r A 7*,? 

40 RXLT = AxT**S A 

XLT=RXLT#XLMAXT A 764 

PXTUP= *999099909 A 7*6 

BXTLOW= #0000 | A 366 

OELBXT = (BXTUP— BXTLOW ) / ! *0 # A 7*7 

RXT=#4=5 A 76P 

CALL ITPP (RXT*BXTLOW, BXTUP, DELBXT * FOFRyT ,F1 «F] ,200* ICOOF ) A 369 

IF (ICOOE) 7*41 ♦ 7 A 770 

4 I TAUT-eXT + *<5*XLMAXT/UC 1 A 77) 

UtT^XLT/TAUT A *»l r P 

PRINT 17S, XLI^AX • XL f RVL • TAu*U I • XLMA XT ,xlT *DXL T *TA1 »T*ut T, T AHt A 77-» 

TF ( I S TET • NF ■ 0 ) GO TO SS A 774 

r A 77R 

C SHOCK TUBE FLOW NONUN I FORM T TY— LAMINAR CASF A 376 

C A 377 
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IF fRXLonpoOo^) GO TO 42 
PRINT 176 
GO TO 5 0 
42 PRINT 177 

PRINT 17P 
PRINT 179 
C 

C FUO is RATIO OF XG TO XL 

r 

MNM = n 
Pun=o 2 

XSLM ( 1 >=FUD*RXL 
DO A9 ! = 1 oF 

BNON < I ) =RH02* (US! -U2 1# ( 1 o-SORT(XSLM( I ) > ) 

4 3 CNON=H2+o6* ( US 1 “U2)**2 

0N0N-P2+RH02* (US 1 -U2 >**2 
R2X( T )= ! oOi *RH02 

44 U2Y ( 1 ) = US I -BNON ( M/R2Y < ! ) 

GO TO (45,47)0 INtJ 

45 H2Y( I )=CNON-oF* (US1-U2XI I ) ) **2 
7(4)=AL0Gt0(H2Y( I )/?B7o0245) 

I MFT ( 1 ) - 1 MFT ( 2 > =0 

CALL SLOW ( S2R ,2 * 4, 2 o ! T , NV , NERR « Yg Y ) 

R 2 XN=< ]0o«^?(2))^t,24148Pt4 

IF (ABSM o-R?Y( I )/Q2 YN)oLFooO01 > GO TO 46 
R2X< T )=R2XN 
GO TO 44 

46 Z < 2 ) =AL 0 G 10 ( R 2 X (n /1 o?4]408Q) 

CALL SLOW ( S2R « Z , 2 o I « I T , NV * NFRR o Y , X ) 

T2X ( n=Z(l ) 

CALL slow ( S 2 R o Z , 2 , 3 , IT, NV , NFRR , Y , X ) 

P?x ( ! )s(10d**ZC3> >*1 o 017P46^+f 
call SLOW ( S2R 9 7 9 2 , 6 « I T , NV , NERR * Y , X ) 

A2X (I ) = Z (6 >*331 9 4 1 93 
GO TO 48 

I NU= 1 RASFO ON ENFPG Y FQ 0 AND INU-2 RA-S^D ON MOMFNTUM FO 0 

47 P2X ( I }=ONON-R2X ( I (US 1 -U2X C I M ^*2 

CALL SAVF <P?X( T ) 9R2XN,H2X( T ) oS 2R9T7X( T > 9 A9X( n 972X9GAMPV „ t ) 
IF ( ABS ( 1 o-R2X ( ! 1 /R2XN ) oLF o o 001 ) GO TO 48 
R2X ( I ) =R2XN 
GO TO 44 

48 RXR( I >=R?X< r 1/RH07 
RXH ( T ) = H2X( I 1/H2 
RXU ( I ) = U2X< I )/U2 
RXP i I ) =P2Y ( T 1/P2 
RXT ( ! ) =T2X( I 1/T2 
RXA ( I )-A2X( ! ) / A 2 

PRINT 1 80 o XSLM ( t JoPXP ( 1 ) g RXR ( I ) «PVT ( T > , Pyw < I) oRXA ( T) ,PYU( ! ). 

IF (MNM o F0q!) GO TO 52 

FUn=FUO+o 2 

XSLM ( 1 + 1 ) -FUO^RXL 

49 CONTINUE 
C 

C SHOCK TUBF FLOW NONUN I FOR* T T 1 FS-Tl JRRULFnT rAFP 

C 

60 IF (RXLToGEoO o9 ) GO TO 6 l 

PRINT I 8 I 
GO TO 64 
Ft PRINT 1Q2 

PRINT 178 
PRINT 179 
FUn=o2 

XSLM ( 1 ) =FU0*P*LT 
00 F7 T = 1 ,6 


A 

778 

A 

770 

A 

780 

A 

**81 

A 

7pP 

A 


A 

7R4 

A 

7PF 

ft 

TP* 

A 

7p7 

A 

7RO 

A 

7RP 

A 

700 

A 

.70 1 

A 

792 

A 

701 

a 

704 

A 

1Q(s 

A 

70* 

A 

7Q7 

A 

798 

A 

799 

A 

4oo 

A 

4*1 

A 

402 

A 

401 

A 

4 04 

A 

405 

A 

4^6 

A 

407 

A 

408 

A 

4 r\ 0 

A 

41 0 

A 

41 I 

A 

412 

A 

41 

A 

41 4 

A 

41 6 

A 

41 * 

A 

417 

A 

41 R 

A 

41 0 

ft 

470 

A 

481 

ft 

47P 

A 

427 

A 

424 

A 

4P* 

A 

426 

A 

47^ 

ft 

4 PR 

ft 

489 

A 

479 

A 

471 

A 

47P 

ft 

477 

A 

474 

A 

47F 

A 

4 7* 

A 

47T 

A 

478 

A 

479 

A 

440 

A 

44 1 

A 

442 

A 

447 
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52 

53 
C 
c 
c 

54 

55 
C 
C 

c 

56 


C 

c 

c 

87 


56 


5Q 


c 

c 

c 


c 

c 

c 

60 

61 


RNON < I >=RHO?* (USl -U? >* M • — ( y 5LM ( T ) )**.R ) 

MNM= 1 

go To 4 3 
FUD^FUDT*? 

XSL M < 1 + 1 ) =Fl/0*PXLT 
CONTINUE 

STANDING OP PFFLFCTFH SHOCK AT SECOND DIAPHRAGM 

IF (LD*EO*t • AND • TSTFT*FO«0 > GO TO 1 
GO TO < 57 *56 « 60 <571 « LD 

STANDING SHOCK PHASE 

CALL SNS (PHOA *UA,PA,H4,FAR f TA,AA*7A,OAMA,7STARA,MA ,RhA?, < fp , n? , w7 , 
1HT2^PT2#RT2*ST2P,TT2 , AT2*7T2 *GT2*ZSTART2 1 
HUP=HA 
NMN = ? 

GO TO 58 

CONDITIONS IN REGION A FOP NO ST AMO TNG SHOCK 


PA =P 3 
RHOA=PH02 
T A - T ? 

SAR-S2R 

ha=h? 

HLfDrHA 
A A = A ? 

Uflsll? 

Z A =72 

GAMA=GAM2 

ZSA=7S2 

=| rA/ A A 

I FO= 1 
Pf A = 0 * Ci 

CALL Vise (TA f PA*V!SA) 

IF IV! SA.FO, I *n ) GO TO 50 

RFA^PHOATMTA/V!SA 

CONTINUE 

IF (LD.FO.t) GO TO 66 

IF (LC«EQ.4 » ANn.NMN*FO * \) GO TO 66 

PRINT ! 47 

PRINT 183 

PRINT 147 

PPfNT 16T 

PRINT I 68 « PA4PHOA*TA*HA,SAR,7A,OAMA,AA*nA,MA*QFA 
IF (ISTET*NF*0) GO TO 66 

ST AGN A T I ON . C OND I T I ONS BFHTND STANDING SHOCK IN SHOCK TU or 

0T ? = 3 .8798E-4*S0PT (PT2/BNR )* (HT2-HW > 

PRINT 184 
PR TNT 185 

PRINT 212, p T2 ,RT2, TT?,HT2 ♦ FAR, 7T2, GT2 , AT?, OT? ,BNP 

REFLECTED SHOCK PHASE 

RH0R=1 0*-*RH07 
NVN = ^ 

UR=U2/ (RH0R/RH02- t * ) 

PR-PP+PHOF* < (U2+UP ) **2 1 — PHOP+UP* *3 
HR=h?+ • 5* ( CU2+UR) **? J-#5*uP**;> 

GO TO (6?*63>« IFAV 


A 444 
A 445 

A 44 A. 

A 44 7 
A 448 
A 44P 
A 4 5n 
A 45] 
A 4*3 
A 450 
A 4^4 
A 458 
A 4*6 
A 487 

A 48P 
A 4*0 
A 46D 
A 4*1 
A 4*3 
A 4*7 
A 4*4 
A 465 
A 4** 
A 467 
A 4 6° 
A 4*0 
A 4^7 
A 471 
A 473 
A 477 
A 474 
A 47* 
A 476 

A 477 
A 478 
A 470 
A 48^ 
A 481 
A 48? 
A 487 
A 484 
A 488 
A 486 
A 487 
A 488 
A 48° 
A 400 
A 401 
A 40? 
A 40? 
A 404 
A 405 
A 406 
A 407 
A 408 
A 400 
A 8 40 
A 5n i 
A 803 
A 807 
A 804 
A 5n8 
A 506 
A 807 
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6 P CALL SFARCH (pq «RNF:W 9 HP g *;APP «TR « AP * 7PqH AMP * 7FPo ! SO > 

Go TO 64 

63 CALL SAVE (PP gRNF'nM HPoSAPP »TP p APg 7P »GAMRg 3 ) 

ZSR=7R 

64 IF ( ABS ( 1 e-RNEW/RHOR J oLFo a 00 1 > GO TO 6F 
PHOP=RNEVf 

GO TO 61 
68 RHOP-RNEV' 

mp=pp;ar=up=OoO 
PRINT 1 at 
PRINT I R6 
PRINT 147 
PRINT 167 

PRINT 16Bg PR *PH 0 Rd TPgHRo SAPPoZP »GAMPg AP^UP gMPgPFAP 

PA=PP 

RHOA=PHOR 

Tf=TP 

H A = HP 

HUP=HP 

ZA=ZR 
OAma=GAMP 
AAs AR 
tjft = n o 0 
7c.A = 7SR 
MA=n 0 0 
IFO^l 

66 IF (ISTEToFOoO) GO TO 1 

r 

C EXPANSION TlJ^F PHASe- 

r 

C LF= 1 DENOTFS UF IF. FASIO INPUT 

C. L F = 2 DENOTES P5 IS BASIC INPUT 

r 

c 

C FROZFN FLOW- FXPANSTON TURF 

C 

PR T NT 147 
PRINT 187 
PR t NT 146 
PRINT IBS 
PRINT 189 

IF (LFoFOo 1 1 Pf = 0 o O 
IFfLFoFOo?) US=0 0 O 

PRINT 1 90 g U5gP5*XASoDELUF, ISAV* IFXP, IRFP^NVELo I AC g JAG 

67 AL°H A ~ Z A - 1 „ 

GAMACTr (7o + 7<>tf ALPHA )/(?<» + ALPHA 1 
AACT=SORT (GAMACTfr7A*RU*TA/W ) 
hatt=a ACT**?/ ( OAMACT-I o ) 

hfpo=ha-hact 

IF CHFPOpGT oO« 1 GO TO 68 
PRINT 191 
p^er = Oo 1 
GO TO 74 

68 GO TO (69,71 U LF 

69 u*5F*U5 

A5F=AACT+( (GAMACT-1 o )/?o >*<U A-USF1 

IF ( A8F t>GT o 0 d > GO TO 70 
PRINT 192 
PFF = 0 © 1 
GO TO 74 

70 p6F=PA* ( ( A5F/AACT )** I 2 o 4GAMACT/ ( GAM ACT- 1 © ) > 1 
GO TO 72 

71 pc:p = P6 

AFF= AACT* (PFF/PA ) < (GAMA^T-l o 1 / ( 2 © *G A m AC T ) > 

UFF = ? ©* < AACT-A^F )/( GAM ACT-! o >+UA 


A FnR 
A FnO 
A FI n 
A FI 1 
A Fi 7 

A Ft *7 

A Ft 4 
A FJ F 
A F i 6 
A FI T 

A F| * 

A FtO 
A Fj>n 
A F^ i 
A FP7 
A 

A f?a 
A f^F 
A F^»6 
A 

A F?p 
A FpO 
A F-*P 
A F->1 

A ft? 
A F37 
A F74 
A F3F 
A ft* 
A FT7 
A Ft* 
A ftq 
A 840 
A Fdl 
A F 47 
A F4~* 
A F44 
A F4F 
A F 46 
A F4T 
A F4P 
A f 4 9 


A F Fn 
A F^I 

A FI^P 
A F«^T 
A «4 
A F«F 
A F F* 
A 

A kco 
A fkr 
A F*A 

ft F* 1 
A 

A F67 
A F64 
A fac 
A F*6 
A F6 7 
A Ff,* 
ft 

A ^7ft 
A ft l 
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7 P M5f=1JSF/A5F 

T5F=TA# ( A5F/.AACT ) *#7 
RHn5F-P5F*W/ (RU*ZA*T5F ) 

S5Qf=SAR 

H5F=HACT* (TSF/TA ) 

ZS5F=ZSA 

Z5F-7A 

GA M5F = G AM ACT 
PF5F=0«0 

call VTSC < T5F « P5F # V ! S5F ) 

IF (VI S5F * FO • 1 * 0 ) GO TO 77 
RE5F=RH05F*U5F/V I S5F 
7? CONTINUE 

T|FF = XAS*< f t .0/<U5F-A5F > ) — ( I *rVU5F) ) 

PRINT 193 
PRINT 167 

PRINT 168* O5F,PH05F,T5F,H5F t 55RF,7SF*GAM5F f A^F,IFF,M^r f d^f 
SHOCK CROSSING - FROZEN EXPANSION - ^OUILIRRIUW pr^T choc*' 
H5fSC=H5F+HFR0 

CALL SNS (R5SF .U5SF ♦ P5S5’*H55F*S5SRF*T5^F* A5SF,75GF f 056F, 7cqcF,M^F 
1 •PHO c;; F • U5F * P5F »H5FSC »HT^F « PT5F iRT^F* FT^pFiTTcp # AT^F,7TFC 
2F ) 

PATFF=RSSF/PHOsF 
PRINT 203 
PRINT 1 94 
PRINT 20*5 

^ PRINT 206 ♦ P5SF*R5SF *T5SF • HFSF • S5 5QF *Z5SF «G5SF, A FFF #U55F * m56F*PATF 

PRINT 207 
PRINT 194 
PRINT 208 

GTZOF = 3*8798F-4*GOqT (PTFF/RN!R ) * < HT^F-HW ) 

PRINT 212* PTSF ♦ RT5F ♦ TT 5F i HT5F % ZT e F * GT^F * ATFF, OT7HF *RnP, T I 5^ 

PRINT 203 
PRINT 195 
PRINT 205 

P5SF^ = P5F* (2* #GAMArT^FFf#?_r,AMACT-M • )/(^Av,Arr + l , ) 

R5SFF= (RH05F* (GAVACT+I • >*M5F**2 ) / ( ( OAmACT- ! • > *M5F**7+7 . ) 
T5SFF=P5SFF*W/ (P5SFF*Ru*7A ) 

H5SFF=H5F*T5SFF/T5F 
Z5SFF=ZA 
C cc ='P = CAMArT 

A5SFF= A5F*SQPT ( T5SFF /T5F ) 

U5SFP* = PH05F*U e FF/O5SFF 
MF^e-F = U5^Fr/AF5FF 

S5SPFF= (ALOG (P5SRF7P«=:F )-GAMACT-»ALOG (R^crr/DHOFF) ) / f G AM A r J - 1 • pr 

RATFF=P5SFF/RH05F 

PRINT 206 * P5SFF*R5SFF « T5SFF * H5SFP * F5SRFF f z^F^F , G5 ^FF , Ae^FF * | jfccf 
l M5SFF * RATFF 
PRINT 207 
PRINT 195 
PRINT 208 

HTRFC--H5F+.5 + USF**? 

TT5FFrT5SFF*HTf5FF/H5SFF 

PTFFFsP^SFF^fHTFFF/H^SFF)*# ( GAM ACT/ ( GAM ACT— | • 1 > 

RTRFF = PT5FF*W/ t TT5FP^*7A*Dl I ) 

ZT5FF=7A 

r ? T^r^ = r amact 

AT5FF= A5SFF+S0RT (TT5FF/T5SFF > 

QTZnFF=3*8790F-4*SORT (PT5FF/RNR ) * (HT5FF-HU/ ) 

PRINT 7 1 2 • PTFFF * RT5FF « T T5FF ♦ HT5FF • 7T5FF » OjpFp * A T5 FF , 0T70FF , hkjq « T f 
I ^F 

equilibrium fxpanst on-expanston turf 


A 5-J7 
A 577 
A 574 
A *7* 
A 5-r* 
A 5-r-> 
A 57P 
A 570 
A 5*0 
A 5R1 

A 

A 5R7 
A 5R4 
A 5R5 
A 5R6 

A 5Q-7 

A 5p* 
A 5RQ 
A 5 Qa 
A 50 1 
A 597 
A 507 
A 504 
A 505 
A 506 
A 507 
A 59P 
A 509 
A 6 on 
A 6 n 1 

A 6"7 
A 697 
A AA4 
A 605 
A 696 
A 697 
A 69p 
A 6n9 
A 61 n 
A 611 
A 61 7 
A 61 7 
A 614 
A 5 t ^ 
A 6 t 6 
A 6 t ^ 
A 6 1 « 
A * 1 9 
A 6 ? 9 
A 671 
A 67? 
A 67** 
A 674 
A 675 
A 676 
A 677 
A 67R 
A 679 
A 67" 
A 67 1 
A 677 
A 673 
A 674 
A 675 
A 676 
A 677 
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c 


A 

678 

74 

if (LToFOo?) go to 93 

A 

6?0 

c 


A 

6 AG 

r 

i^=i r ASF 

A 

6A 1 

r 


fi 

*4 ? 


IB ( IPObPOo ? * ANDo IFXP oPOo 1 > GO TO R7 

A 

6 A ? 


hflu-ub-ua 

A 

M4 


GO TO ( 7a , BP ) 9 IFVP 

. A 

6AR 

7 ^ 

HM f M= 1 d OF+F 

A 

6 A 6 

76 

PFLH= (HUP-HM IN) /(FLOAT f JAC )-! <>n ) 

A 

6A 7 


PRINT 196 

A 

64 a 


IMFT (t >=tMFT<?5=0 

A 

649 


LC OOF = l 

A 

6RG 


no an j = i g jag 

A 

6F) 


7 (4 ) = f HUP-FL0AT < J-l ) «OFLH ) /?B7o 0346 

A 

6*? 


7 < A > = A LOG 1 O f 7 { a ) ) 

A 

6 «? 


c All . slow ( sar« z» 4 ^ 6 o t t , n\/ 9 nfrr 9 y » x i 

A 

6F4 


GO TO (79,77), LCODF 

A 


77 

L = J 

A 

666 


00 78 k=l*jac 

A 



TApHP (K )=HUP-P“L.OAT(t<'-l )*O r LH 

A 

6^8 


TARA (K ) =1 0 G766/SOPT ( TABHP(K) > 

A 

A R 9 

7 a 

CONT TNIJF 

A 

660 


PRINT 197 

A 

661 


GO TO R! 

A 

66 5 s 

7Q 

T AphP ( J > = ( 1 0 o*-frZ(4 ) ) ^P87 c n?4B 

A 

663 


TARA <J) = 1o/(7<6>*8o'M4J 9?f+? ) 

A 

66 4 

an 

CON T INIJF 

A 

66 F 

at 

CALL S I MR (TARHR 9 TARAg JA'*', JAC gTARANG ) 

A 

66 6 


IF (LF 0 FQo2) GO TO 99 

A 

667 


GO 7-q 66 

A 

668 

8? 

IF (PSFgGFoOoM GO TO 87 

A 

660 


PGFsOo 1 

A 

67 n 

R? 

OFLPG=ALOG! 0 (OflyD^r ) / ( A T f I AC 1 - 1 oO > 

A 

671 

04 

PRO { 1 ) =AL0G1 0 ( PA ) 

A 

67? 


PRINT 198 

A 

6?? 


PFK ( 1 ) =PA 

A 

674 


TARHP ( I ) =HA 

A 

6 ?^ 


TARA (1 > =1 o/A A 

A 

676 


TARP ( 1 ) =PA 

A 

6?7 


do a^ j=? 9 1 ac 

A 

678 


PGG( J)=P8G( J-l >-nH_PG 

A 

6 TO 


P6K ( J > = 1 0 * **PGG < J } 

A 

680 


CALL SAVE (PFKCJ) ,RK,HK,c4R,TIC,AKo7^9nK,t ) 

A 

681 


T ARHP < J ) =HK 

A 

608 


TARA (J)*L /AK 

A 

687 


TARPt J ) =PGK { J ) 

A 

684 

8=5 

continue 

A 

6 RR 


CALL SIMP (TABHPqTARAo I-ACg T ACgTABANS ) 

A 

686 

86 

IF (LFoEOo 1 > GO TO R7 

A 

68 7 


UR=tlA + TAPANG (t AC ) 

A 

6RP 


GO TO 103 

A 

6R9 

87 

CALL FTLUP ( DFLU « HR o 2 « NON ,TARANSoT ARHR > 

A 

690 


1*00 = 1 

A 

69! 


GO TO (09,88)9 IFXP 

A 

692 

8 fl 

CALL FTLUP ( OELU NON cTARANS,TARP) 

A 

60? 


GO TO 1 00 

A 

604 

ao 

IF (HR. GFgRoF + A ) GO TO 90 

A 

6 QF 


PRINT 199 

A 

606 


GO TO 130 

A 

6Q7 

90 

XX=6AR 

A 

60 R 


Z ( A )=ALOGlO{ HB/287 o 0?A5) 

A 

609 


I mfT ( 1 ) = Imrt (3 ) =0 

A 

700 


LCOOF= 1 

A 

70! 


CAUL SLOW (XXo 7,4 9 1 9 IT 9 NV 0 NERR 9 Y 9 X ) 

A 

76? 


GO TO (91 o92 ) 9 LCOOE 

A 

70? 
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9] CALL SLOW (XX, 7, 4,3, IT ,NV#NFRR, V .X) 

CALL SLOW (XX»Z,4*3» IT , MV . NFpR , Y * X ) 

CALL SLOW (XX, 7*4,5. I T #NV # NFPR , Y , X > 

CALL SLOW (XX# 7,4 ,6# !T#NV*NFPR, Y.V ) 

CALL SLOW (XX, 7, 4 *7, | T . NV , NFRR , Y , X ) 

TP; -7 ( 1 ) 

9^ = f 1 O. **7 ( 3 ) 

P8=(10.**Z<3> )*I .0132465+5 
04^6=7(5) 

A6 = Z (6 >*33! #4103 
776=7(7) 

GO TO 1 03 

92 PP t NT 3 00 
PRINT 301 

PS = 1 .01 32^8+6* < H6/2 .996576+6 )**3.6*FXP (27 .*! Q- 5 AR > 

T8=H5/998.857 

R5=3.483985-3*P5/T5 

A5=?0.046* SOR T (T5 > 

7Z5=7ST8=1 .0 
GAM5= 1 • 4 
GO TO 103 
r 

C LF=3 CASF 

r 

93 GO TO (95,94). ISAV 

94 CALL SAVF (P5.R5, H5.CAP. TF. A5-Z7*>.GAM5. 1) 

IF (IFXP.FO.l) GO TO 98 

DFLPG” ALOG I O (PA /P c > / (FLOAT ( !AC>-! . > 

GO TO 84 

95 Z < 3 ) =AL0G1 0 (P6/1 .0] 3246F+6 > 

I MFT ( ! ) = \ MFT (2 ) =0 

LCO^r] 

call slow (sap#z#3.i , it.imv.mfpp, v.x> 

GO TO (96.97) , LCOnr 

P6 CALL SLOW (SAR.Z.3#2# IT.NV.N5RP.Y.X ) 

CALL SLOW (SAR.Z, 3,4 . 1 T.NV.NFRP, Y,X ) 

CALL SLOW (SAR.Z# 3.5# 1 T#NV#NERP, Y.X ) 

CALL SLOW (SAP .Z, 3, 6 , t T.NV.NFRRt Y.X ) 

CALL SLOW (SAP.Z.3,7, [ T,nV*MERR«Y,X) 

T5~Z( 1 ) 

P5=- ( 1 0.0**Z (2 ) )*l .291 48RQ 
HS= ( 1 0.0**Z (4 ) >*287.0345 
GAM 6 =Z ( 5 > 

A8=7 (6 ) *33 1 .4193 
ZZF=7(7) 

GO TO 98 
97 PRINT 300 

PRINT 301 

H5 =3 #996578 + 5* C (P5/1 .01 736F+5)/(FXP (23*910- GAR)) 1**0.3867 

T5=H57998.857 

R5 = 3 • 48398F — 3*P5/T5 

A5=20.046*SORT (T8 ) 

ZZ5=Z5T5- 1 .0 
GAM5=! .4 
9R HMTN=H5 

GO TO 76 

OQ U5=< <4 + TARANS ( JAC ) 

GO TO 103 

tOO GO TO (101.102)# 1 5 A V 

101 CALL SFARCH <P5#R5,H5,SAQ.T5,A5*ZZF.GAM5.7ST5. ISP) 

GO TO 103 

102 CALL SAVE (P c i,R5 . H8 # SAP# T5 . A5# ZZ8.GAM5. 1 ) 

ZST5=ZZ5 

103 M5-UF/A5 
RF5=0.0 

CALL Vise CT5,P5#V1S5) 


A 704 
A 7*5 
A 7*6 
A 7*7 
A 7*8 
A 7*9 
A 7 1 * 
A 7 1 l 
A 7J 7 
fl ?P 
A 7 t 4 
A 7 j 6 
A 7)6 
A 71 7 
A 7t 8 
A 7) 9 
A 729 
A 77 1 

A 777 
A 777 
A 77 A 
A 736 
A 736 
A 777 
A 738 

A 730 

A "’TP 
A 7*1 
A 773 
A 777 
A 77 4 
A 7*6 
A 776 
A 777 
A 778 
A 779 
A 74* 
A 74 1 
A 74 2 
A 74 7 
A 74 4 
A 7*6 
A 74 6 
A 74 7 
A 74 0 
A 74° 
A 76 * 
A 76 1 
A 763 
A 767 
A 764 
A 765 
A 76 6 
A 76 7 
A 76 P 
A 760 
A 760 
A 761 
A 763 
A 767 
A 764 
A 76^ 
A 766 
A 767 
A 76R 
A 760 


56 



APPENDIX A 


IF ( V I SFoFOo 1 qO > GO TO 104 
RF5=R5»U5/ V I SF 

104 CONTINUE 

TI5=xAS*( (1 oO/(U8-A5) )-( 1 o H/U5 ) ) 

PRINT 202 
PR ! NT 1 67 

PRINT 168* P c i?R5,T5< H5*SAR* ?75 *GAmF 9 A5 * l i 5 * mF Q RF 5 

CALL SN5 <RH05S*U'5S«P5S*H5S*S5SR,T5 SoAFS* 7FS*GAMF8 SoZSTAR 5 SqM 5S*R5 

1 *UF 9 P5* H5*HT5 ,PT5 9 PTF , S T 5Q * TT5* ATE « 7T5 * GAm^TF * 7ST APT^ 1 
RA TFF = RH05S/Q5 
PRINT 703 
PRINT 304 
PRINT 30F 

PR T NT 306 * P5S«RH05S 9 T5 SoHFS « S 5SR 9 7*8 «GAMrFS mRQ,dATPf 

PRINT 207 
PRINT 204 
PRINT 3 OR 
C 

C HFAT TRANSFER RELATION OE NASA TN n-4799 

C 

QTZO=3o 8798 e-4*SQRT (PT5/BNR >* (HTF-HW ) 

PRINT 209* PT5 9 RT 5 9 TTF 9 HT8 o 7T5 * GA MFT5* A T5 , QT70 * 8NR * T ! f 

IF (IMODoFOo?) GO TO ! Qf 

TF ( OFLUFoFOdOoO ) GO TO 106 

1M0P=2 

PRINT 147 

PRINT 145 

PRINT 146 

UF=uF-? oOW^LUF 

GO TO 1 03 

1 05 U5=UF+2 oO*DFLU 5 
C 

C COMPUTING ACCELERATION GAS (AIR) CONDITIONS 

C 

106 US0=1*1*U^ 

107 H?0= 1 00 4 o FQR-tt-T 1 + 0 ©F*u50*#3-0 ( »J8 0-1. J5 ) 4* 3 

CALL SAVE (pF , rho? 0 « H20 * SR20 *T20 9 *Z2 n * GA , 7 > 

Pi q- f p^ + R H OPO* f USO-t iej^#p)/M 0 +( 0 063484*1 1 S0**3 ) / T M 
US 0nFW=U 5/( 1 o - ( o 0034R4-H- 0 1 O ) / < T ! *Qho2o > > 

IF ( APS ( 1 o-USONFW/lJSn ) oLFo oOOt O ) GO TO 10R 

USO^USCNEW 

GO TO 107 

| Ofl M70=UF/A36 

ms i o=uso/a i 

RHOl 0 = ( Pt 0* W 1 / ( RU-s-T 1 ) 

R30R-RHO2O/PHO1 O 
PRINT 3 1 0 
PRINT 711 

PRTNT 213* PF * PH020 * T20 * H2 n „ 730 * m po * p 1 o „ i jc o * w S 1 0 * P37p 

PRINT 313 
PRINT 214 
r 

C ACCELERATION TEST TIME- MfRFLS TMrnPV (LAMINflP) 

C 

X A (t 1 = 0 !*VAS 

IF (MS 1 OaGFo 4 oO o ANDoMS 1 n 0 LFo 1 4o ) GO TO l OP 
IF ( MS 1 0 o GT o l 4 * ) GO TO 110 
PRINT 715 
GO td 118 

1 OR XXMAX = P 1 0 * 0 ! A** 2* ( 3 o 06 - «, F 6 * MS ! o + 8 * nQFr- S 1 o **3 > 

GO TO 111 

1 i 0 XXMAX = P1 O-ttDI A **2* ( o 872 3-7 o 48RF-3 *me ] o ) 

C 

C XAF IS DIVIDFD INTO 10 INTERVALS XA 

C 

111 DO 117 1= 1*10 

BFTA 1 =XA ( I 1 *RHO 10 /< 2 o*XXMAX*RH 020 ) 


A tta 
A 771 
A 7-7? 

A 777 
A 774 
A 77^ 

A 7T* 

A 7^77 
A 778 
A 770 
A 780 
A 7 P 1 
A 

A 79 7 
A tpa 
A 7PF 
A 796 
A 787 
A 7R8 
A 780 
A 7QA 
A 70 1 
A 707 
A 707 
A 704 

A 70F 

A 706 
A 707 
A 708 
A 700 
A 80 6 
A flo 1 
A 86 2 
A 907 
A RP4 
A EOF 
A Rn 6 
A P^7 
A ROP 
A 80° 
A 81 * 
A 811 

A 017 
A P 1 7 
A 814 
A 81 F 
A 816 
A 9 T 7 
A 81 8 
A 8 1 P 
A R76 
A 87 1 
A 872 
A 877 
A 874 
A 82F 
A 876 
A 877 
A P7P 
A 870 
A 870 
A 871 
A R7 3 
A 8.77 
A 874 
A 97F 
A 876 
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BET A 2-2 • ♦RHO20XRHO 1 0 
AXUP=. 99999 
AXLO'V= • 00OOJ 

OPLTAX= < AXUP-AXLOW ) XI OO* 

FI = . lF-fS 

call ITR? (AXfAXLOW* AXUP * OFL TAX « FOFA X * F 1 *F! *200* T^nnp) 
IF (I CODE) 1 13*1 t St 313 
11 2 RXL= AX *#P 

xl “RVL^ xywAx 

TAUT =RH01 0*XA ( T )/ ( RHO20-*l IF ) 

BXUP=* PQ99Q 
PXLOW= • 0000 | 

DFLTBX= < BXUP-*BXLOW 1/100* 

BX-.F 

call Itr? (RX»PXLOw»pyuP,nFLTRXiForny,Fi yroriF) 

IF (TCODF) 113*11^*113 
It 3 GO TO <114*1 ! F , 1 t^*] 1^), TCOOF 
114 PRINT ! B* 

GO TO t 1 ft 

1 ! B PRINT IFF, TCOOF 
GO TO 1 1 R 

11<S TAu=tRX**2*XXMAx/U50 

ui =xl/tau 

URAT=UT /UF 
UPA=Ufif>/UT 

PRT NT P 16* XAS «XA f T 1* XXM AX « X! . * RXL *TAU*I »T * UR A T * UP A * TAU? 
X4M + 1 )=XA(n4, 1*XAF 
117 CONTINUE 

MB IF ( I STET *FQ • 2 ) GO TO 1PP 

MP IF (LP.FO.P) GO TO 121 

NN=NN+1 

IF ( IRFP.ro. 1 .OR. NVFl . p O # NJN ) GO TO ISO 

IF (NN^GT.IO) GO TO 120 

L'5o> JB+U5I 

DFLn-UF-UA 

IFO = ? 

GO TO B7 

120 IF f LO *NF , 4 > GO TO 1 

ir ( |PFP,F0# 1 ) GO TO P^O 
Uq-uR-{ FLOAT (NVEL >-l * 

?F0 NN=0 

IMFT < 1 ) = J MET <21=0 
LCODF=l 

IF <NMN*FO,l) GO TO Fft 
IF ( NMN • FO • 2 ) GO TO B O 
GO TO 1 

121 IF ( LO ♦ NE • 4 ) GO TO 1 
!FO = ? 

IMFT < 1 > = t WFJ (P > = n 
LCOnr = i 

IF (NMN.FO. ! 1 GO TO FB 
IF (NMN.FO*?) GO TO BO 
GO TO 1 
C 

c expansion tunnel - equilibrium fxpanston 

r 

122 PRINT 147 
PRINT ?17 
PRINT 14B 
PRINT 2lR 
PRINT P 10 

IF (LG.FCW 1 ) P6 = 0. O 
IF( L g.fq #?) ub=o,o 
PRINT 220 * U6*P6*DIAT*r>? AN. TSAV 


A ftR-? 
A Rrr 
A R7Q 
A R* n 
A R 4 1 
A R4R 
A R4 n 
A R 44 
A p$«; 
A R4* 
A R4^ 
A R 4 P 
A R 40 
A R^n 
A 

A ftR? 
A R^ 7 
A R(=:4 
A Rc?^ 
A RFB 
A P .^7 
A R^R 
A flqQ 
A ftB* 
A RBI 

A 

A ftBft 
A RB4 
A RB«=r 
A PBB 
A R*-7 
A RB R 
A ftBQ 
A R"7n 
A R-ri 
A R-7? 
A R->3 
A P7d 
A R7F 

A R7B 
A R77 
A ft-?P 
A R70 
A RPA 
A RR 1 
A ft R^ 
A ftftft 
A RR4 
A RRF 
A ft RB 
A PR -7 
A RPR 
A RftP 
A ftP" 
A 8P1 
A ft°2 
A PPT 
A POA 
A POE 
A RPB 
A qo7 


A PPB 
A 
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C FPOZ^N FLOW- FXPAN^ION TUNNFL * 

c A 9r> | 

123 ALPS=ZZ5-1e * 9n * 

GACT 5 - ( 7o + 3o A-AL.P5 )/ ( Fo+ALP5 ) A 9r> ' ? 

AACTF=SQRT ( GACT5*ZZ04RLH*TF/w ) A 9*4 

HAT TF = A ACT04"&2/ < GACT F— I o) A Qr> ^ 

HFR0F=H5-HAr.TF A QA * 

IF (HFPOFoGToOoO) GO TO 1^4 a O/s-7 

PRINjT ??J A Q * Q 

GO TO (130g140>« LG A OOO 

124 GO TO I12*i«!?7)t LG ft Q 1 

1 ?F Uftrstj* A 011 

CATA=(GACTS-toO)^(U^?-Ufi^«?)+flArT^^«? A 9| 2 

IF (CATAoGToOgOl GO TO 1 76 A 9t 

PRINT 272 A 014 

GO TO 1 30 A Ql F 

126 A6F = CQPT(0ATA ) A Ol 6 

P6F = P«5* ( ( A6F/AACTF > (2«?GACT5/ < GACTF-1 aO ) >> A Q P 

GO TO 1 26 A ot p 

1?7 P*Ft=D* A oio 

A6F- AACTF^ (P6F/P«=l ( ( GATT^-1 o 1 / ( 2 0 ^GAryF ) > A oon 

U6F2*QRT (US««2+ < AACT«;^^5. fl ^r^2 )/ f GACT^-1 oO > ) A 0^1 

128 W6F = U6F/A6F A 9?p 

T6F=T5* < A6F/AATTF )**? A 0?7 

PH06F=P6F^W/{RU^ZZF^T6F ) A 074 

H6F=HACT5* (T6F/TF ) A 97F 

Z6F=7ZF A q 26 

GA**F=GACT5 A o?>7 

S*Pf=SAR A 9?P 

PF6F=0o0 A P?Q 

CALL VISC <T6FgP*FgVlS6F) A 07* 

IF f V I S6F oFOo I o 0) GO TO 1?<? A oti 

QF*F-R HO *cra n *F/VI S*F A 07? 

I ?9 PRINT 223 A Poo 

PRINT 167 A 074 

PRINT 1609 o6FoRH06FoT6FgH6F^SARg2fiFgGAM6Fg A6 FoU6FoM6F*RF6F A 

H6FSC=H6F+HFROF A 07* 

CALL SNS CR 6 SF 0 U 6 SF gP 6 SFgH 6 SFgS 6 SRF *T 6 SF g AftSFg Z 6 SF oG 6 FFg 7S6 SF*w»6SF A 077 

1 «PHC 6 FoU 6 F«P 6 F * H 6 FSC ,HT 6 F, PT 6 F ?PT 6 F g ST 6 RF «TT *F g A T 6 F g 7T*F g GT 6 F c 7 ^T* A Q7P 

2 F j A 070 

RATF6=R6S^/RH06F A 040 

PRINT 224 A 041 

PRINT 194 A 04 ? 

PRINT ?0F A 04° 

PRINT ?06g P6SFoR6SFgT6SF,H6SFgS6SpF Q 76SFgGftSF g A6SF ,H6FF , MftSF gP ATF A O 44 

16 6 Qflq 

PRINT ? 25 A q A6 

PRINT 194 A O 4 T 

PRINT 208 A Q40 

OTF6=3o8798F-4*SORT (PT6F/RNR )* (HTlSF-HW) A q 4 Q 

Tl*F=OpO A Oqft 

PRINT 2 I 2 o PT6F9RT6FgTT6FgHT6F«ZT6FgGT6Fg AT*FgQTF6,RNPgTI6F A Of 1 

PRINT 224 A Of? 

PRINT I 98 A oft 

PRINT 20S A Of A 

p ft SFF=P6F*(2o*GACTF*M*F**2-GArTF+1 0 y/ ( g4o T f+i 0 ) 4 Qc«; 

R* ? c*p= (RH06F# ( GACT K +1 P ) / ( f r, AFTf-i 0 > -frM*F**7 + 7 o ) A Oe;* 

T6SF F=P6SFF*W/(R65FF*PU*77F ) A 9F7 

H6SFF -H6F -PT 6SFF/T 6F A O^R 

7*SFF= ZZ5 A OPO 

G 6 SFF-GACT 8 A o*n 

A*SFF = A 6F-&SQRT (T6SFF/T6F) A Qf ? 

U6SFF=RH06F*U6F/R6SFF A O*? 

M *SFF=U6SFF/A6SFF A 0*7 

S*SRFF= ( ALOG (P6SFF/p*F ) -GAC TS?ALOG ( R6SFF/PH06F l )/(GACTF-1 <>)+c*RF A 0*4 

RATFF6=R6SFF/Rh06F A O*^ 

PRINT 206g P6SFF • R6SFF b T*RFF Q H6SFFg S6SRFF g 76^FF g G*Rpr Q 4*c;FFgU*RFr g A O** 
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] M*Sff * RATFFft a 0*7 

PR [ NT 225 A 96R 

PRINT 195 A 0*9 

PRINT ?0R A 070 

HT^F = H6F+.5*U6F**;? A o-f t 

TT6FF=T6SFF*HT6FF/H*FFF a q 7P 

PT^FF = P6SFF* (HT6FF/HftSFFl*» (GACTF/ (GACT5-1 # > ) A Q 7 -> 

RT6FF = PT6FF*W/ ( TT6FF*ZZ5*QU ) A 97 a 

ZT6FF=ZZ5 A 97 c: 

. GT6FF=GACT5 A 07 ^ 

AT^FF = A6SFF*RQPT (TT6FF/T6SFF , a 077 

0TFF6=3«8798F-4*SORT CPT6FF/BNR )* (HT6FF-HW } A 07fl 

PRINT 212% PT 6 FF*RT 6 FF*TTfiFF tHTBFF 47 T 6 FF,GTBFF, ATBFF,OTFFB ,PMP, T IB A 070 
1 F A Pftn 

GO TO (13C*140)i LG a Or i 

C A op? 

C LG = 1 OFNOTFS U6 !S T N D UT A OR? 

C A QR4 

130 H6=H5+. 5* <UB**2-U6**2 ) A QRR 

IF ( H 6 • GF * 2 • F + 4 ) GO TO m A Op* 

PRINT 32 6 A PR7 

GO TO 1 A ORR 

1?1 7(4>=AL0Gl0(H6/2B7*0?45) A oqn 

I MFT ( 1 ) = I MFt (3 >=0 A 000 

LCOnP=l A 001 

CALL SLOW <SAR%7*4 4 3 • TT .NV/.N^RR* Y.X ) A Oo? 

GO TO (132*13^)% LCODF A 90? 

I 3? P 6 - ( 1 0 • 0**Z ( 3 ) ) * J • O 1 325F-*-'n A 094 

GO TO ( 1 33 • 1 34 ) % IRAv A 9 Q 5 

133 CALL SLOW ($ AR ,Z%4 • l , I T.NV tNFRR, Y«x > A QQA 

CALL SLOW (SAR 4 7 4 4*2» IT *NV« NFRR * Y » X ) A O 07 

CALL SLOW (SAR%Z, 4*5 % I T,NV * NFRR % Y.y ) A 90 R 

call slow <sar 4 z 4 4 *6% 1 t 4 nv%nfqr« y*x > a 000 

C A LL SLOW (SAR*Z«4 4 7 4 I T • NV % NFRR t V<y ) A 1 RR R 

Tfi-7 ( 1 ) A 1 or 1 

R6s ( 1 0. *#7 ( 2 ) )* 1 * 39] 4 RR 9 fljnA? 

GA M(S - Z (5 ) AlnoR 

A6=Z(6l*?3t.4lO? rt1 on* 

ZZ6 = 7 < 7 ) A 1 RR5 

PRINT 227 AtORA 

GO TO 1 37 A 1 or? 

134 CALL SAVF <P6 iR6% H6 4 BAR * T6 • *6 . ZZ6 # GAM* 4 1 > AloqR 

PRINT 2 28 A I OR 9 

IF (LG.FQ.l) CO TO ! 27 a 1 R I R 

U 6 = *0RT <2** (H5-H6 ) a t R 1 1 

GO TO 137 A I 012 

I 3F P 6 = 1*01 32^F+5* ( H*/? ♦ 99687^+^ 5**3 .^»FVP ( 23 « o 1 9-^AP) A 1 R 1 "* 

17(S Tfi = H^/09R # 8F7 A 1 RT 4 

R6=2.4839RF^3#PA/TF> AjA^ 

AS = 20.0 4F.*SORT(T6 ) MR 1 A 

GA M*=t 1*4 A 1 R I 7 

ZZF = 7ST6 = t *0 A 1 R ? 8 

PR T NT 229 A1R19 

t 37 M 6 =IP 6 /A 6 A ! R2R 

RF(S = 0* 0 A 1 R? t 

CALL V1SC <T 6 «P 6 tV!*G) A I 022 

IF ( V I S 6 .FO* 1 *0 > CO TO J 38 AIR?** 

RF 6 =P 6 *U 6 /V I S 6 At n ?4 

1?8 POINT 230 Aio?^ 

PR T NT 1 67 A t n?* 

PRTNT 168% P6tR6% T6 %H6 f SAR%Z76%GAM^ f A6 4 U6%M6*RF6 AIR?? 

CALL SNS <RH06S%U6S%P6S%Hfi5«S6SR%T6S%A6S%76S*OAMF6S.%7FTAP*S%w<SS 4 P6 Ain?P 
1 %Ufi 4 P 6 « H 6 %HT 6 ,PT 6 %PT 6 % BT 6 R • TT 6 % AT 6 % ZT 6 % GAMFT 6 % ZSTART 6 ) A ! 029 

RAT6F=RH06S/R6 AtRRR 

0T6=7* 879BF- ASSORT {PT6/RNR )* (HT 6 -HW ) A1 n31 

AA<S= (R8*U5 )/ (R 6 *U 6 ) A 1 m2 
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I 39 


1 4 0 


1 4 1 
l 4 2 


M3 


1 44 
r 
C 
r 

t 45 
146 

1 47 

148 

149 

150 

151 

152 

153 

154 
1 55 
1 56 
157 

1 58 


DELT6-0 o5* I D I AN-01 A T* SORT ( A A6 ) ) 

PRINT 231 

PP1MT ?H4 
PRINT 205 

PRINT ->06 ? P6S «RH06S *T6S , H6S <i S6SR « 765 o 5 A MF6S 4 4 65 Q l i^ c «wAc 9 o A T65 

PRINT 232 
PRINT 204 
PRINT 233 

PRINT 206 «j PT6 9 RT 6 o TT6 o HT6 9 7T6« GAMFT6 9 AT6 0 OT 6 q BNP 9 4A6 o DFLT 6 

IF (LG oEOo2o OR oLR p PoFQo 1 ) GO TO 119 
NNN=NNN+1 

IF (NUVUftoEQoNNN) GO TO 139 
IF (NNNoGTolO) GO TO 119 
U6-U6+U6 I 
GO TO 1 23 

U6 = u6-( FLOAT (NUMU6)-1 
NK'M; 0 
GO TO 119 

LG=2 DENOTES P6 IF INPUT 

IMFT( t )= IMFT (2 )=0 
LCOnF=l 

Z ( 31 =AL0G1 0 (P6/1 0 01 3246^+8 ) 

CALL Slow ( 6 AR » IT* NV 9 NERR 9 v * y 1 

GO TO (1419143)9 LCOOF 
GO TO ( 142, 1 34 ) 9 I 3 A V 

call slow < s ap o 7 9 3 9 2 9 1 t 9 nv 9 nerp 9 y , x ) 

call SLOW ( F AR 9 Z 0 3 9 4 9 I T 9 NVi( 0 MFRR 9 V 9 x 1 
call SLOW (FAP qZ 0 3o 5 , T T oNVo nfrr 9 Y ,X ) 

CALL SLOW < F AR 9 Z 9 3 9 6 9 I T oNV 9 NERR 9 V 9 X ) 

CALL SLOW < F AR 9 Z 9 3 9 7 9 I T 9 NV 9 NFRR » Y 9 X ) 

T6 = Z < 1 ) 

R6=(l0 o MZ(2))^1 o 201 4880 
H6- ( !0o^«-Z(4 ) )*2B7oO?4^ 

GA M 6 - Z ( 5 ) 

A6=Z(6)*331 o4193 
ZZ6-Z<7> 

PRINT 227 

U6 = FORT (2o* ( H8-H6 1+1 15**2 ) 

GO TO 1 37 

H 6 = 2o9B657F + 5* ( (P 6/1 oO! 3288+6 >/ f pyo ( ?7 0 9 1 0-5 AF > ) >**^0 28^7 
U6=S0RT I2o-^(H5-H6 )+u5**2) 

GO TO 1 36 
STOP 


A 1 "7-* 

A 1 074 
A t 076 
A I 076 
A t <777 
At 078 
A 1 070 
A 1 040 
A 1 04 1 
A 1 042 
A1 043 
A 1 04 4 
A 1 045 
A 1 046 
A 1 047 
A 1 04 8 
A 1 04° 

a l n^o 

a i 08 1 
A 1 08? 
A 1 087 
A I 084 
A 1 055 
A 1 08* 
A 1 087 
A 1 085 
A 1 080 
A 1 0*0 
A 1 061 
A ! 0*2 
A 1 063 
A 1 0*4 
A 1 068 
a I 066 

A1 067 
A 1 068 
A 1 O 6 Q 
A 1 070 
A 1 071 
A 1 07? 
A 1 077 
4 t 074 
A 1 075 
A 1 076 
A t 077 
A 1 078 
A 1 079 


FORMAT 
FORMAT 
1 X ) 

roowAT 
1XX ) 
format 
format 

FORMAT 

FORMAT 

format 

1 P4 

FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
1 A3 

FORMAT 


(/qjH FOLLOWING EQUILIBRIUM CONDITIONS INCLUDF PLOW ATTN) 

< /q ^ H xxxxxxxxxxxxxxxxxxxyyxxxyxvxxYyyxxxx YxyyYYYYyxxxvvyyy 


( //C sfh xxxxxxyyxxxxxxxxxxvxxxxxyy yyYyyxyxyyyywyvy vyywYYyy 


(//46H FXPANSION TIIRP PROGRAM OF MJLL^ POP RFAL AIR) 
(51H ALL PHYSICAL OU ANT IT! FC JN MKF UNITS- NASA CP-701?) 
I//28H SHOCK TURF PHASE OF PROGRAM) 

<//37H MEASURED INPUTS FOR SHOCK TU^r PHA^F) 

i/i O sh run pi ti 

T 4 XIS OIA 

(9E1 0 o 3 9 3 1 5 ) 

<ZOH MAX COUNT EXCF^OFD ) 

(17H OERlVATIVF = Oa *15) 

(7H I CODE- 9 1 5 9^H PI = iFl?o1q7H 
</65H P3 T 3 RH03 

U3) 

( 7F 1 O o 3 ) 


US! P3 

TSAv INU LD) 


HFLR= «Et 2 o 3 ) 

7 ? H7 


1 / 


A 1 OOO 
A 1 ORt 
A 1 OP? 
A 1 O P 7 

A 1 op A 
A 1 OR8 
A 1 0*6 
A 1 OP 7 
A 1 OPP 
A 1 OPO 
A 1 OQO 

A 1 OQ 1 
A 1 OO? 
A 1 007 

a t 004 
a i oo6 

A 1 006 
A 1 007 
A 1 OOP 
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I 59 

FORMAT 

1 60 

FORMAT 

161 

format 

1 62 

format 

t 63 

FORMAT 

164 

FORMAT 

1 

FORMAT 

165 

166 

FORMAT 

167 

FORMAT 
1 7 

168 

FORMAT 

1 69 

format 

170 

FORMAT 
1 SI 

171 

format 

1 72 

FORMAT 

1 73 

FORMAT 

1LMAXT 

1 74 

FORMAT 

I 7F 

format 

176 

FORMAT 

1 77 

FORMAT 

1 78 

FORMAT 

1 79 

format 

I 

I RO 

1 

FORMAT 

181 

FORMAT 
1 ) 

182 

FORMAT 

I 83 

FORMAT 

I 84 

FORMAT 

1 ?) 

1 8 F 

FORMAT 

I 

l 86 

1 

FORMAT 
1 > 

187 

format 

188 

format 

1 89 

format 
1RFP NIVF 

1 90 

FORMAT 

191 

FORMAT 

192 

FORMAT 

193 

FORMAT 

1 94 

FORMAT 

195 

FORMAT 

196 

FORMAT 
1 ) 

I 97 

FORMAT 

198 

FORMAT 

IN) 

1 99 

format 

20 C 

format 

201 

FORMAT 

202 

FORMAT 

203 

FORMAT 

204 

FORMAT 

20F 

FORMAT 

1Z 

206 

FORMAT 

207 

FORMAT 

208 

FORMAT 
1 AMF 

209 

FORMAT 

21 0 

FORMAT 


C/46H P2 PHO? HP 

(SFA 0.3 ) 

<//30H IMPFRFFCT HYDROGEN DRIVER GAS1 
IMPFRr^CT HFLTUM DRIVER GAS) 

4 CONDITIONS) 


UP 


US! > 


PHO 


s/P 


SHOCK - RFGION 


H 


SHOCK 

H 


P) 

s/P 


NRF ^ 


VFLOCTTv ) 
A 


<//28H 
f // 1 OH 
C/75H 

A W) 

( BF t 0*1) 

(//44H CONDITIONS RFHIND INCIDENT 
(/106H P PHO T 

GAMS A U M 

ft 1 E 10 . 1 ) 

(//44H RATIO- P TO 1 CONDITIONS AND 
f/ 66 H P RHO T 

US 1 ) 

( 7 F| 0,0 ) 

f//47H SHOCK TURF FLOW PAQAMFTFPS IJSfNC 
C/107H LMAX t. L/LMfly 

LT LT/LMAXT TJMT UlT 

f / 4*5H shock turf tfst timf not comdutfo 
(1 1 f i 0 « 7 ) 

I//51H SHOCK TURF LAMJNAP r L r)w NONUN T FORM f T Y NOT COMPuTFD) 
(//4SH SHOCK TURF FLOW NONUN T FORM f T T e\S-L A m T NAR rft^r) 

C/44H RAT l OS-PAPAM stfR AT VS TO P APAMFTFR AT XS = 0) 

</65H XS/L P PHO T H A 

U> 

(7F1 0,0 > 

iSS*13H SHOCK TURF TUPFULFNT FLOW NOwilN ! FORM I T Y NOT COMPi/TFD 


MIPFLS 
TIM 

TTMT ) 
- MSI LT 


THEORY > 
UT 

4 > 


SHOCK TURF FLOW NONUN 1 FORM I T T FS-TURRULFNT CASF> 
CONDITIONS RFHTND STANDING SHOCK AT SFC^NDAPY DTAPH 1 
STAGNATION CONDITIONS RFH T NO STANDING SHOO k-QFG J ON 1 


< //47H 
C//53H 
<//54H 

C/PRH P 

GAMF A 

(//57H CONDITIONS 


RHO 

RFHTND 


OT 

PFFLPCTFD 


H 

PN ) 
^HOCK 


S/p 7 

AT SFCONDARy DIADH 


</32H EXPANSION TURF PHASF of PPOGPAM) 
(//37H INPUTS FOP FXPANSION TUBE PHASF ) 


DFLUB 


TSAV IFXP 


( / 72H US PS x A S 

L I AC JAC ) 

<4F1 0,3.615) 

f 40H FROZEN FnTHALPV in RFGION a IS NFGATTVP') 

C/16H ASF IS NEGATIVE) 

f //34 H 5 CONDITIONS FOR FROZEN Fyp ANS I ON ) 
f4in FRO?fn FXPANSION — FOUILTPRlUM POST SH^CK) 

(37H FROZFN FXPANSION-- FPo^FN POST SHOCK > 

(/S4H A FOC PEAL-AIR TAPE USFR FOR UNSTEADY FXP ANS T ON- 1 Pyp = \ 

</S3H PFPFFCT AIR RELATIONS USFD FOP NlJM^P | C Al INTFGPATION' 
(/SSH AFDC CURVE FIT FyPRFSS I ONS US^O FOP UNSTEADY FyPAMF I r 


rOMPUTFD > 
PFLAT I ONS > 


(/SON H5 lt 5F+4- EQUILIBRIUM 5 COND I T I ONS NOT 
OUANTTTIFS in RFGION F OFF AFOC TAPP ) 

(S3H THESE QUANTTTTFS DFtERM I NFD PR OM IDFAl AID 
(//79H S CONDITIONS FOR PQulLlRPIUW EXPANSION) 

(Z/47H STATIC CONDITIONS «=*HTNn ROW SH^CK - pc^pw ss ) 
( 46 H EQUILIBRIUM pyPANSTON — fOUJLTRPTUM post SHOrk' ) 
(/10BH P PHO T H S/R 

samf a u m ratio 

< I 1ET 0 . 3 ) 

(//49H STAGNATION CONDITIONS RFHINP ROW SHOCK-PFGTON 
f/97H P RHO T H 7 

A OT RN T] MI ) 

( 1 OF 10*3) 

<//4BH ACCFLFRATION AIR CONDITIONS (RFGION 30 ) AND PI A) 


TF) 


A 1 rtOQ 

A 1 

t 06 

A 1 

let 

At 

! 03 

A 1 

1 03 

A 1 

1 04 

A! 

1 

A 1 

1 ^6 

A I 

t 07 

A ! 

1 on 

A 1 

1 09 

A I 

l t 0 

A I 

1 1 1 

A t 

112 

A t 

1 1 7 

A 1 

1 t 4 

A 1 

1 is 

A I 

1 1 A 

At 

1 1 7 

A I 

I 1 8 

A 1 

? 1 9 

A 1 

I 

A 1 

131 

A 1 

1 33 

A 1 

133 

A t 

1 34 

AT 

1 3S 

A! 

126 

A ! 

1 37 

A 1 

1 2R 

A 1 

1 39 

A ! 

1 70 

At 

t 3 ) 

At 

1 73 

A 1 

1 7 3 

A 1 

I 74 

At 

t 7« 

At 

t 7* 

A 1 

1 77 

A 1 

1 7P 

A ] 

1 7Q 

A! 

1 40 

A 1 

1 4 1 

A 1 

M2 

At 

147 

A t 

1 44 

A t 

145 

At 

1 46 

A 1 

147 

A I 

MS 

A 1 

M° 

A 1 

t 

A ! 

161 

At 

1 K3 

At 

1 F7 

AT 

I e4 

A 1 

16 = 

At 

TS6 

A 1 

1«7 

A 1 

1 SP 

At 

1 tzQ 

At 

I 60 

A 1 

! 6 1 

A 1 

167 

A t 

! 6 7 

A 1 
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21 1 

21 2 
21 3 

21 A 

215 

216 

217 

218 

219 

220 
22! 
222 

223 

224 

225 

226 

227 

228 
229 


230 

231 

232 
273 

234 


C 

c 

r 


1 

2 

3 


FORMAT M01H P20 RH020 T2^ M26 

l M30 Pin usto msi n p atto > 


FORMAT 

format 
1 ) 

FORMAT 
1 TIM 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
format 
FORMAT 
FORMAT 
FORMAT 
1 1 

FORMAT 

FORMAT 

format 

FORMAT 
1 GAMf 
FORMAT 
FORMAT 


< 1 OF t O o 3 > 

(//53H ATCFL^FATIOM AIR' F|_ow PARAMPt^PS USTNO M lP p ( ^ THF 

{/Q7 H X A S XA LMAX L L/LMAY 

ui Ul/UF US20/IJI TIMT ) 

(// 50 H ACCELERATION AIR LEAKY p I ST ON FFFFCT NOT rAVPijTm) 

< 1 OF1 0o3 ) 

( / .34 H EXPANSION TUNNFL PHASF of PROGRAM) 

( //34 H INPUTS FOR EXPANSION TUNNFL PHASF) 

</47H U6 P6 O- THROAT n-NOZZLF TSAV1 

( 4F1 0 o 3 o t 1 R ) 

(/40H FR02FN FNTHALPY TN RFGION B IS NEGATTVF) 

(/46H A6F NFGATIVF - FROZEN CONDITIONS NOT COMPUTED) 

C//.41H 6 CONDITIONS FOR FROZEN NOZZLE EXPANSION) 

(//47H STATIC CONDITIONS BEHIND POW SHOCK' - PEOTON 6S ) 
(//5lH STAGNATION rONDITJONS RFHtNn BOW SHOCK - REGION- T6) 
<//44H H6 LESS THAN 2oOF>4- T6 LFSF THAN 20 DFG K) 

(/43H AEDC TAPF USST) FOR STFADY N077LF EXPANSION) 

</53H AFDC CUR VF FIT FXPR^SSIONS USED FOR NOZZLE EXPANSION) 
( / R4 H REGION 6 QUANTITIES OFF TAPF - pppEFOT RELATIONS USFO 

( //46H 6 C.ONOTTIONS FOR EQUILIBRIUM NOZZLE EXPANSION) 

(//4SH .ST AT ! C CONDITIONS R^HTNn ROW SHOCK-PEG I ON 6S ) 

[ //4QH STAGNATION CONDITIONS BEHIND BOW SHOCK-REGION T6> 

( / 1 09H d RHO T H 7 

A QT RN A /AST AR OFLSTAP) 

( 4 A 1 0 ) 
f 1H1 • A1 0/ ) 


END 

SUBROUT INF V I SC (TcPcVIS) 

DImfnSTON TAPY(a) « TABTYU3)® TABNUYCB?) 


TABLE OF VISCOSITY FROM YQSIAVCO R AO-TM-6 3-7 ) 


DATA TAPV/1 ,01 3?rf + r 9 3oD^P7FE+B. 1 * 7 1 32FF + * , 7 * 0 307^ E + */ 

DATA T ABTY/ 1 00 Oo o 2000 o o 30 0n 0 *4000 q«BOOOo , 6000 o ,7007 og flnn0 0 o 9000 o » 1 
1 noon o 0 1 20C0o ^ 1 4 O 0 O 0 « 1 6000 o Z 

DATA TABNUY/ o4 1 8F-4 * q 648^-4 , a RS8 p -4 c 1 © 7RF-4 „ } g 30F-4U a R4E-4 Q 1 
J4 o2o71F-4,2o45F-4 o2 «63E-4 o 77F-4 , 0 P6E-4 4 o 4 t RE- A 4 Q 64RE-4 4 o 

P057P-.4 , J 0 D7p_4 , l o3DF— 4o 1 d c '? c - 4( 1 ©8HF— 4«2$14E— 4c2 = 4 EF — 4 c2o66E~4c 2.8 
7«^fr_4 ,2 o 34F-4 « 1 e 5!? r -4 , o 4 1 RE — A * o 6 A RE - 4o 0 RB7F — A 4 1 &07F-4 0 1 o70F — 4c 1 o B 1 E 
4-4,1 «76E — 4,2o06E — 4,2o4F~4, 2 o 67E-*4 ,? o 00P-4 ,2 0 82F-4 , 2o24F-4 ^41 *^-4 c 
«=; o 648E — 4 c bR^6F-4c1 0O6F-4 , t O 27F-4 4 T 0 «^P-4,1 o 7 ^ F -4 «?^ nfr -4 ,? 0 ^F-4o?» 
663E— 4g3»06F— 4 * 3 „ l OF — 4 gZo66F—4/ 

IF (TcLFol^OO,) GO TO 2 

fF {T e r-T 0 ]6000e 0 OPoP 5 oGTo7 0 04F+06) DO TO 1 

CALL DISCOT <T TARTY , TA^NUYvT APV , t 1 4 B2c 4 4 V T S ) 


GO TO 3 
Vt S=1 oO 


GO TO 3 

V I S= ! o 462F-RttSQRT (T)/(l c+1 i?o/T) 
RETURN 


END 

SUBROUTINE SHOCK (RN g CN 4 ON ♦ PN « UN • PN« HN ) 

bn=rn*un 

CN = PN + RNMMJN**2 

DN = HN+o 5*UN**2 

perrt IPN 


FND 

FUNCTION FOFAXT ( AyT ) 

COMMON /PLK6/ RFTA!g^FT.At> 

F0FAXT=-o4*RETAl - o 2B*AL0G ( ( 1 o-AXT )/ ( 1 *+AXT> ) + 0 BttA T A n ( A*T 1-AXT 
RET 1 IR N 

END 


Alt 6^ 

A 1 1 AS 
AM67 
A 11 6R 
A 1 1 AP 
At 1 77 
A 1 1 71 
A 1 1^2 
A I 1 77 
A t 1 74 
Alt 7F 
A 11 76 

ft 1 1 77 

A! IT* 
Alt 70 
A 1 1 87 

A 1 1 R 1 
Alt 82 
A ! 1 R7 
A 1 1 R4 
A 1 t RE 
A 11 R6 

A 1 1 07 

A 1 I RO 
AT IRQ 
All O'" 1 
A 1 1 91 
A1 1 92 
A 11 97 
A 11 Q4 
A 1 1 9B- 


R 

1 

R 

2 

P 

7 

R 

4 

P 

R 

R 

6 

R 

7 

B 

R 

P 

0 

R 

t 0 

P 

t T 

R 

1 2 

P 

1 

R 

1 4 

P 

1 s 

Q 

1 6 

R 

1 7 

R 

1 * 

R 

1° 

P 

pn 

R 

71 

P 

72 

P 

27 

P 

74- 

r 

1 

c 

2 

l- 

7 

r 

4 

r 

R 

c 

6- 

0 

1 

n 

7 

n 

7 

D 

4 

r\ 
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1 


c. 


i 


FUNCTION ^OFBXT (PxT) 

COMMON /0LK6/ RFTAl ,RPTA? 

FQFBX T - — *4#BSTA1 + .Re*ALOG ( < 1 ,+RXT >/( I • -BXT ) ) + , R*A T An ( RyT > - * A *Ry T ** 
I R/RFT ar-rxt 
RFT l IRN 
FNO 

FUNCTION EOF Ay (AX) 

COMMON /RL<6/ RFTAt ,RFT4? 

FOfAX=-PETA J - A LOG (U-AX)-AX 

QFT1 »RN 

FNO 

FUNCTION FOFPX (RX) 

COMMON /PL<6/ RFTAt ,PFTA? 

FO F BX = -R r T A t — At .OG ( 1 » -RX)-PX**?/B F TA?-RX 

RFTf )RN 

END 

FUNCTION Fnry (Pni 

COMMON /BLKl/ RT4,CT4,PH0G 

FD r Y = RHOF— ( p T A #PN*#?+rTA*D^* + 1 ) 

R F Tl IRN 
PNJFi 

FUNCTION F OF P (RM! ) 

COMMON /Pl<R/ PT T * CT T • T [ , ryp f ,S4 P , cpff * nor ? , nry ] 

A=CVRI *ALQG ( T T ) 

R = PT I +T T # OPT T 
C = CT ! +T T *oft [ 

FOFR=A-ALOG ( RN I )- (PN ! *R ) - < PN ! **P/R ♦ ) *c+SQrr_S4P 

RFtt ;RN 

FNO 

FUNCTION FORMS (MFM) 

COMMON /PL<?/ TJ ,'^0«T4 <P4,nt 

PFAL MSN 

A^P4/P1 

p= (0AM4-1 . )/?*4 

C = SORT ( ( ( T 1 *W4 )/(GAm4*T4 ) ) ) 

D=?,*GAM4/(GAM4-1 • ) 

DFM= f t » -B*c* (MFfst-t ,/mSN) )+ + r\ 

POEMS* SORT < ( < A*OFM ) + , I 66T )/\ • I 6^7 ' 

RFn^PN 

FNO 

SUBROUTINE SIMP (TAPXf T APV «N»NMAXiTARAnS ) 

OTMIFNSTON TAPX (NMAX ) , TARY (NIMAX-) » T A Q A NE ( MM A y ) 

D 1 Mr N.S ION NP (4 ) 

COMMON I COUNT , I MFT ( 2 ) * NP * A R A R « MR , f y»r ,SAR,Lcnnr, nr l 1 » 

COMMON /6LK4/ L.F * NON ,L U * NOP I V « LR • LO • LG 
TARANS ( 1 ) sO 
DEN = 2 * 

Kr? 

TABX fTHAT IS T APHR ) IN O^rprASING ORHFP — nr[_y Tv-f! fS NjFriATlVE 
DO 1 J=K«N 
NON = J 

DFLX= (TARXIJ )-TARX( J— I ) j/n^N 
X=TARXI J-l )+OFl.X 

CALL FTLUP (X»Y»-2,N,TARX»TA RV ) 

SUM= ( T A0 Y f J— ] ) + 4 > ♦Y + TAPY { J ) > * ( ARE (O^LX m /S # 

T AR ANS ( J ) =TAPANS C J— 1 ) + SU M 

CONTINUE 

RETURN 

END 

SUB POUT INF SNS (RX,UX^x,HX,.SXiTX, AX,7V t OX « 7SX « M y , PRy , u c v , °Ey , H Ey • 

1 HTV tPTX ♦ RTX* STX « TTy * ATX* 7TX , G^y, 7TCy ) 

DIMENSION X(4>, Y(4fQi tR^)» 7(0), U{*)« V( 4 ) , V r ( 4 ) « NO ( 4 ) 

PFAL «Sl , M2, MB f MRS , My, MV * MNP 

COMMON I COUNT , I MET ( 2 ) » N D , A P AP , WF , MF , FAp^mor, OP I l j „ I ^ A \/ 

CALL SHOCK ( RSN, Cfn , pen, drx , upy, Pry , mey ) 

I MFT M ) = I MET ( 2 ) =0 
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appendix a 


1 


? 

3 

4 


F 


6 


C 

1 


? 


IT = Q 
NV/ = 0 
I SP= 1 

Rx=t p o *pfx 

HTX=nSN 

UX=PSN/RX 

PX=C.RN-BSN*UX 

HX=n^N-o^^UX#fl? 

GO TO t ? O > * 1 SAy 

CALL SfAPCH (PX*RMHi/,HX«cy*Ty»Ay*7y,r,y,7 < iV4 !^°) 

GO T n 4 

CALL SAVF (py ,RNFWi HV, SX « tv , ay *7X ,GX , * ) 

ZSx=7x 

IF < ARS ( I o-RX/RNPW) »L r » o nn ! ) GO TO * 

RXaRNRW 
GO TO 1 
RX=RNF1*f 
MX=1 JX/AX 
STX=SX 

GO TO (6o7), J SAV 
HTX=MX+ o "5*1 >X#-*P 
7<4l=HTX/?R7oOP4 c 
7 (4 | r A L OG 1 0 f 7 (4 > 1 

CALL GLOW <«;X*7*4« 3* TT*wv/.NFPRi y« V) 

PTX= ( 1 0 o0**7 ( 3 ) > + 1 o 0 1 3?4GP+^ 

CALL SFARCH (OTX * PTX iHTX^TX ? TTX * ATX t7TV * GTX ? 7T.SV « ISO) 

Stx=fx 

GO TO o 

PTx=py* c i *+ ( cgx-1 »)/?» ) > ** (wtr,y - 1 o i ) 

CALL save (PTX*PTX,HTX.^Ty,TTXfATX,7TV^TX,l ) 

ztsx=ztx 

IF < ABS < 1 o-HTX / (HX+ « c i#UX##? ) > oL^ o « no 1 1 GO Tn O 

pry = <ptx* (hx+o^ux#*? > ) /ht X 

GO TO R 
RFTI tQN 
FNO 

5UBPOUTINF PITT ( PTM , ct m , np.y g PCM , p?pm * n?FM , TV ) 

COMMON /RL<A/ t .F»MOMtLU*MOP! V*L^ qLO«LG 
IF twDPlVdFO*! 1 GO TO 1 


L ° 

| o 

1 . T n 
1 . 1 I 

L. I ? 
f. I ** 

L 1 * 

L 1 c 
L 1 * 

L I 7 
L i ° 

L 1 * 

L ^ 

L Pt 
I pp 

L p 4 

I. R K 
L ** 

L 

L pp 
L ■= , ° 

i on 

L n I 
L 

L ^ 

L ^ 
f « 
l. 

1 . ^7 

L °R 
L 

L 4 n 
L 4 i 
L 4 P 
L 4 0- 

M 1 

W P 
M P 

M 4 


H^LTI'M URPn AS OR T V r P GAF 

A.mTI = ! ** o RPR? -A LOG I TM ) 

AMT?=-3o71 B*f-3*TM 

RTM = 3 o 3B6 e ^ ,r -6^AMT t OORFF-O^^XP { AMTP ) 

r TW=^ B 637f-l 

r)RM= (_l 0 OnGPFF-B/TM)-«fAYT|'X^P + ^o4iFPn^-F*^yPfAMTP> 

OCM= ( -7 « 77RRF- 1 !/TW)*A^Tl^ #q 

02PM = C ? ©0 1 3PF-5/TM*^R A WT 1 + < I i. n OA0RP- cr /TM*tf P ) »AMT 1 6 77 ?Op^R» c 

I XP ( AMT? > 

02 C M = ( \ * fBRPP r - 1 0/TM**2 > * A wt 1 # *4 -M 7 o '>7PR tr - t 1 /t*'*#PI*-AMt1#*f 
GO TO P 

hyoroG^n us^n as opivfr gar 

PTM= 1 O 6994F-3*TM**o?R 
CTM=?o 1 E — 4 

pRM=4 »?48RF-4*TM** (-,7^) 
p)rM=n?rw=n e 

P2RM = -Oo 1 RR4F-4*Tv>** (-1 

prTi IPN 

FNO 

SURPOUTINF search f » v DHO • H ! ♦ FOR * T ! , a 1 t 7 1 , GA V , 7F * T > 

DIMENSION G f 4 1 * Yt(4)» YP<4)* Y?(A)» V4(4l, Y«(4>* YG f 4 I ♦ V7 (A) 

DIMENSION I COUNT ( ?F ) ■> JFLAG<?F), t5(?c,, DHOfOF) 

DIMENSION SAVFH < ?F * 4 ) 9 SAVro(?S,/n, SAyFTfPR,4)« SA\/rA<?F f 4> 
Ot M FN c !ON SAVF7 ( , 4 > « R Av/ff ( p«^ » a ) 9 SA\/rr. f „ 4 ) 9 c AVF7<= r 7 ^ « 4 > 

OIMFNSION T1 (^1* Air?*)« 71 (? k )9 coo(P«). 7S f > 
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M 
M 
V! 
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APPENDIX A 


DIMFN-SlON T/\ R T ( 1 E'*' ) * TARpd^C' ) * TAEtt(i^A) # JA n H( l^'') 
DI MRNS I ON TAPAU^ 0 ) * TA^7 (1 ^0 ) ♦ TA^(t (1^0)* TAC»7S(I cr r') 
no ! T = 1 , tsd 
trO)|NT(!) = ! 
jfl a g n )=n 

1 CONTINUF 

J UMP=0 
I T = B 

pew r nh it 

? PFAn (IT) X,NV,((Y(I,L),T=1«9),L=!»MV) 

IF (FNOFILF IT) 3 ,ft 
3 CONTINUE 

WITF ( 6 ■* J 6 ) 

DO F I = 1 , i SP 

IF ( JFL AO ( T ) *fo* 0 ) r.n TO 4 
00 TO R 

A CONTINUE 

RHO ( I ) = 0 • 

T 1 (I ) =0 . 

A 1 < f ) -O • 

71 (I ) =0 • 

sor ( r > = o • 

GAM (1 ) =0* 

7S { T ) - 0 • 

R CONTINUF 

GO TO JE 
B CONTINUF 

DO I A J=1 t ISP 

TF ( JFL AG ( J ) • F O • 1 ) Go TO 14 
NN= I COUNT ( J ) 

PP-ALOG I 0 (P ( J ) / I ♦')L??RF + c^ > 

HH= ALOG 1 0 ( HI r J )/PS7*0?4E ) 

IF ( (PP-Y < 3 * 1 ) >* (OD-y ( 3*NV > ) ,LT ♦ o «, > r,n TO 7 
SAVFH(Jt 1 )=0. 

SAVER! Jt 11=0. 

SAVFT ( J « 1 ) , 

SAVE A ( J, 1 )?0, 

SAVF7 ( J* 1 )rO, 

SAVFF ( J, 1 )=0. 

S A V f G ( J * 1 ) =0 ♦ 

SAVF7S ( J.l )=0, 

NN=P 

GO TO 10 

7 DO R 1=1 ,NV 

TART (!)=Y(1*I) 

TARP ( I ) — Y ( p , I > 

TAPP (I )=Y(3i I ) 

TAPH (I )sY(4*T> 

T Arc < I >=Y(E« I ) 

TARA (I ) =Y(6i I ) 

TAP7 ( I ) “Y ( 7, | j 
TAR7F( I ) r Y ( P ♦ I ) 

A CONTINUF 

CALL DISCOT (PP.PP*TARP,TARH,TARH t -13P,NV%O.ANFl ) 

CALL DlSCOT (PP , Do , jaRP , TARP , T ARP , — j 30 * mv , 0 , ANSp ) 

CALL DISCOT (PPtPP, TARD , TART t TART, -1 30 * NfV , n * AN S3 ) 

CALL DI SCOT ! p R «PP, TARP , TARA ♦ TARA J 30 , MV, n , ANSA ) 

CALL C I SCOT (PP < PP < T ARP < T AR7 , TAR7 » — I 30 , NV * n , ANSE ) 

CALL D I SCOT (op ,PP t T ARo . t ARC , TARO , ^ \ 3^ , NV , , ANFfi ) 

CALL Cl SCOT <np,po,TARP,TAR7F,TAR7G,-13n, NV , t r,, A NS7) 

S A VF C, < j , NN ) - Y 
S A V p H ( J , NN ) ~ AN S I 
SAVFP ( J, NN) = ANSP 
SAVFT ( J*NN ) = AN S3 
SA VP* A ( J ,NN ) =ANF4 
EA VF7 ( j , NN ) = ansf 
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1 7 

N 

J A 

N 

1 F 

N 

t ft 

M 

1 7 

N 

1 R 

Kt 

1 0 
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A *7 

N 

AA 

N 
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Aft 
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FI 
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FP 
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E^ 

Kf’ 

Eft 
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E7 

M 

ER 
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EO 
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ftO 
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ftl 
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ft? 

N 

ftp 
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ft A 
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ft E 

N 

ftft 
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ft 7 
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ftP 
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71 
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SA V^O { J,NN) = ANS6 
■SAVF7S ( J»NN ) = ANS7 

IP ( S A VFH { J< NN )jCiT oHH) GO TO 1! 
if (mnqEOoT) on to q 
NN=NN+ 1 
GO TO 1 O 

<? SAVFP(J»1 1=^AVFR(J,?) 

S A VFH ( J o 1 )=FAVPH( J,? > 

S A VFT < J* 1 )=SAVFT< Jg? ) 

SAVE A ( J 9 1 )=^fiVFA (J»?) 

SAVEZIJo! > = S A VEZ ( J q ? ) 

SAVEStJol )=SAVFF(J,?) 

SAVFG (J»l ) =5i AvFG (Jo? ) 

SAVE2S < J , l ) =SAvEZS { J g? 1 
SAVFR< Jo? >=SAVFR < Jo 3 > 

SA VFH (Jo? >=SAvEH ( Jo 3 ) 

S A VFT ( J o 2 ) - S A V F T ( J « 3 ) 

SAVE A ( J o 2 > =SA VFA < J, 3 ) 

FAVF7 ( Jo ? ) = SA\/F7 <J^) 

SAVF< <Jg?):sSrtVEE(j,7) 

SAVEG ( Jo ? ) = SAVFG ( Jo 3 ) 

SAVFZS ( Jo2 ) =SAVFZS (J»3) 
in 1 COUNT (J)=NN 

GO TO 14 

11 IF (NNoEOoAl GO TO 1? 

NN=NN+ 1 
I COUNT ( J>=NN 
GO TO !4 
1? JFLAOrj)=l 

no it m* i « a 
G ( M ) =SAVFH ( J 9 M ) 

Y 1 (M ) sSAVFQ { J»M) 

Y2 { M ) rSAVFT ( J <, M ) 

Y3 (M ) st^AVFA ( Ji M ) 

Y4 (M 1 = ?AVFZ < J o M ) 

YS (M )=FAVES (J*M) 

Y 6 <m ) = FAVFG ( J «m > 

Y7(M ) = SAVF?F( J 9 m ) 

17 CONT1NUF 

CALL I NTRP ( A oGoYI »HH*P) 

CALL l NTRP ( 4 g G o Y? 9 HH o T ) 

CALL TNTRP (4,G«Y3»HH,M 
CALL I NTRP (4 g G o Y 4 , HH « Z 5 
CALL 1 NTRP ( 4 oC-g YFg HH, Fpi ) 

CALL I NTRP (4 ,GoY6o HHoGAMj ) 

CALL INTRP (4 *G o Y7g HH, ZS1 ) 

PHC( J)= ( 10 0 **P)*1 o?91 4R9 
T I ( J ) -T 

A 1 ( J ) = A*331 o4 1 04 

Z1 (J)=7 

SOR < J > — SR 1 

CAM ( J > = GAW 1 

7F ( J 1=7SI 

JUMP=JUMP+1 

IF ( JUMP oFQo ISP) r -0 TO IE 

14 CONTINUE 
GO TO ? 

15 CONTINUE 
RETURN 

r 

c 

c 

16 FORMAT (1HI « ftOX * 7HWARN 1 MG//// ) 

FNP 

SUBROUT INF SLOW ( XX 4 7 4 t ! • J l 4 ! T .9 MV « NRRR 9 Y 9 X ) 
C TAPE IS WRITTEN WITH LlN^S OF C°N^T ANT YY 
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Kf 
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Kl 

1 3 1 
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1 2? 
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1 77 

N 

1 24 

N 

1 7K 

Kl 

1 26 

Kl 

1 27 

Kf 

1 2 R 

Kf 

} 70 

N 

1 3n 
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1 31 

Kl 

1 73 
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1 37 

W 

1 34 

Kf 
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cd a 


appendix a 


C 7 ( I ] > A NO XX A RF I NHPPFN^MT vAP ! 

C Z(J1 ) IS THF opP^^nT VA^IARLF 

c ak= + !• rr xx increases monotonic ally on tapf 

C A< = - 1 • IF XX HFCREARFS Y0NOTON r r ALL Y ON T A OF 

c f T = TAPE UNIT 

C NV= NO* OF VAPT ARLF^ ON TAPP" FOP FAf H XV f (NOT GDfAtfd THAN O) 

C NO* OF POINTS FOP f^OM yy NOT GP r A TpP THAN 1 RO 

C BFGIN EXFTUT I ON 

DT wfnSION X<4 ) * Y(4*9*]En)* 7(0), tl(4), V<4)* VM A ) * mo(a, 

COMMON l COUNT « !MFT(2 ) *NP*ARAP*M t:r *MF*EAP*LCOOF* nr(_ 1 1 
RFAl w F,MF 
I C OUNT = I COUNT + ] 

IF { I MFT { 1 )) 3*1.7 

X RACKFPACF IT 

PFAn (IT) oum 
RFV. lt NO IT 
DO 3 K= l * 3 

RFAD <TT) X (K ) * J * ( ( Y (K * I ,L > * ! “ I »NV ) *L = 1 ♦ J > 

2 NP(K) = J 

XW=X ( 2)-Vfl ) 

AK = ARS C XW )/XW 
D I P 1 = l • 

IWFTO 1 = 1 
XXXrYX 
KJFPR=0 
IM = T 

GO TO Ifi 
7 NFRR^O 

C FXCFPT FOP first TTmf THROUGH 

IF ( (XX-X<M1 ) )*<XX-V (M?) ) ) 

4 TFMPr { XX-XXX ) *AK 

01 RF=ABS (TFMP )/Tfmp 

GO=OI Pt *QTR? 

XXX=vy 
D I PI =0 I P? 

IF (DIR?) R,3F f l6 
C 

C NFGAtIVE niRFCTION 

^ IF ( GO ) 6 « 7 F « 7 

fi RAOKSPACF IT 

0 ACKSPACF IT 
BACKSPACE IT 

00 TO 9 
7 

IF C IM ) 8*8*9 

1 Y = 4 
Ml = T Y+ 1 

RAOKSPACF IT 
raokfpaop it 
IF (Ml -4 ) 11 * ! l , f o 

1 o Mi =, 

1 1 mp-m t + i 

IF ( m 2 - 4 >13,13*17 
1? MP=t 

!-? RFAD (IT) X{ IM) .J. ( (V( tM, I ,L >. 1 = ] ,NV) .L=l .J) 

NP f I M ) = J 

IF ( (XX-X (M 1 ) ) * (XX-x ( m2 ) ) > 2F*2R*14 

14 IF <X(Mi )-X(M? ) ) 7*16,7 

C FPPOQ* VAR! flRLF OFir rpONT FMD OF yAPr 

1 *=5 CONTINUE 

NFPP-l 
GO TO 36 
C 

r POSITIVE 0 T PFCT I ON 

Ifi IF (GO) 17,36*1 8 
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APPENDIX A 


1 7 

READ < I T 1 OUM 
READ ( I T 1 OUM 
READ (IT) OUM 
GO TO 70 


1 fl 

I M= 1 M + 1 

IF f i m-4 ) ?0 *70 « I o 

- 

I 9 

T Ms t 


7n 

Ml = I V- l 

p- ■ 


IF (Mi > 71*71*77 


?1 

M 1 =4 


27 

M7-M 1 - 1 

IF (M2) 23*23,74 


73 

M7-a 


04 

REAn (IT) X ( I m ) , J * ( ( Y ( TM , T *L ) * 1 = t 
NP ( 1 M ) = J 

.MV ) 9 L - 1 9 J ) 

r 

TF < (XX-X (M| ) )* (XX-X (M? ) ) > 25»2F, 

1 * 

c 

TAPr 5FARCH CQMPLFT- * 00 CROSS FOUR POINT 

?F 

DO 34 KT= 1 *4 
NPK=N P (<)-] 

DO 76 I =1 «NPK 



IF f(Y(Ko?l«I>-Z<n>)«-(Y(^*Jt*t + l 

1-7 (MM) 77 0 76 

06 

CONT I NUE 
N-RP=i 
GO TO 36 


27 

IF ( 1-1 1 29 ,7R,29 


2P 

J = 0 *5 

GO TO 32 


?o 

JF (I -NDK* > *>1 * 90 0 T 


-*n 

jrMPF-3 
GO TO 32 


31 

J=!-7 


37 

DO 33 L = I * 4 
MY=L+J 



u(u=Ync*n.«x) 


?3 

V ( L ) ~ Y ( X * J 1 q My ) 


34 

CALL INTRP (4,U« V»7( 11 )iW(<) 1 
CALL 1NTRP (A'X'W'XXoZt J1 ) > 
RETURN 


3R* 

CONT I NUF 


96 

N—PP = 1 

jp ( f MFT ( 7 ) ) 9R , 97 f ip 


37 

I MFT ( 2 ) = l 
t_r no^- 9 

U/R1TF (69 39 1 XX * I l * 7 ( 1 ! 1 , J 1 


3P 

RF T1 ;RN 



c 

c 

r 

39 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


FORMAT C///39H NO SOLUTION ON TAPP FOP THF C 0NO T T 1 ONS//F Y • 6H -/R = 
FVALUA TF/6X , 7H7 ( T 1 «?w)=F)^ 0 P^Py^H 7 < II « 1 H > /// ) 

END 

SUBROUTINE C.AV- (D ^PHOp H , FD , J , AM ,7* GAve- , K > 

SAVE OBTAINS THFRMODYNAwIC propfPTI^^ f^p P-4L AIR 
IS RASEO ON CURVE FIT FXPRFSStONS OF AFnC-TOP-63- 1 9R 
EXPRESSIONS OF AEnr-TOP-63-1.3fl APDLICAPlf -OP T = =>o to 

MAXIMUM PFRCFNT F PROPS- T=200n TO IFnno, 

RHO H T A 

?o4? 1 o^6 ?o?4 ?*TR 

INPUTS are PRFFSuPF{N/F0 mftfp> ano- 

n ) fntropv,s/r (< = i ) 

<;?) nFNSTTVo <0/rijRir MFT^P (K=7> 

< 3 ) ENTHALPY* SO MFTFR/SO SFC U< = 3) 


Amp d=if+a to 1 f+6 

2 t,Amf 

n 6 -7*? ^o6R 
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3 


4 




6 


7 


8 


ALSO* INPUTS DENSITY AND ENTHALPY ARP IMfLUnm (<=4 > 


MODIFIED 9/7/71 FOR INPUTS P A MPi T (K=r> 

DIMENSION TAFI$R<6), TARR ( ft ) , TABH(ft) 

01 MFNST ON TARPM(J3>, T ARHM f 1 7 ) , TA°PRw/ 1 , pw ( p ) 

O I MFNS I ON TABTP C 1 7 ) , T APRD ( I 7 ) » T ARSRR (17), TAPHP (17), ta°7P(I7i 

W0=7R*Pft7 

RUN! V=B31 4.34 

NN-P 

MM = H 

IF ( K • NF * S ) GO TO 3 
77 = * 8 

DO 7 11=1,17 

RH0=P*W0/ (PUN! v*77*T ) 

TABRRf I I )=RHO 
GO TO 6 
TARcpp U|) =SP 
TAPHPf I I ) =HA 
TAP/RC I I 1 = 7 
TARTRI I ! >=Tfl 
77=77+. 2 
MM = 0 
NN = n 

rONTTNUF 

CALL FTLUP (T.SR.?, 1 7, TAPTP , TARSPP ) 

CALL FTLUP ( T ,H,7, 1 7,TAPTP, TABHP ) 

CALL FTLUP (T,z.2, t 7.TARTQ.TAF7P ) 

CALL FTLUP ( T , RHO . 2 * 1 7 , T AR Tp , T ARPP ) 
mm = t 
GO Tn R 

IF (K.NF.4) GO TO ft 
CONS= .03 
DO R J= 1 . | 3 
PM ( J ) =PHO*H*CONR 

T ARPM { J ) =DM ( J y 
P -PM ( J ) 

GO TO 6 

TARHM ( J > =HA 
TARGRM ( J y -GP 

C0NR=C0NR+. 03 

MMrn 

NN = n 

continuf 

CALL FTLUP ( H,p • ? , t 3 , TAPHM t TAPPM ) 

CALL FTLUP I H, SP, ?> , 1 3, TA«=«HM , TABSPM ) 

MM=P 

plog = alogio f p/i 

A=PLOG*PLOG 

C=A*PLOG 

IF CkT.^O, t ) GO TO R 

IF ( K. EO. 4 . A NO « MM .FO . 3 ) GO TO 8 

SRUP = 1 4?. 

SRLOW= l 4 • 

SP= f SRUP-SPLO'V >/? • + I 4 • 

OFLSP= ( SPUP-SPt.Oiif ) /? „ J 

IF (NN.FO.O) GO TO 8 
SR=SPUP— OFLSp 
■SRLOG = ALOG 1 O ( SP ) 

R=SRLOG*SRLOG 

n=R#SRLOG 

x I F = -19* I 447+83 .OPFR# v SQ(_oG- 38 • 884 2* SPL OG+ RDLOG 
XI ®?1 = - 1 0. * (PLOG-X! P ) 

IF (X1S1-40.) 1 0,9,9 
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9 

Tie 

= n Q 0 





GO 

TO 1 3 




1 0 

IF 

( Y 1 51 +40 0 ) tl,l2,|3 




1 I 

Tl * 

— 1 0 0 





GO 

TO 1 3 




1 2 

T 1 5 

-1 0 / ( 1 o+FXP (XI 51 ) > 




1 3 

IF 

<KoFa*3o ANO o WM.NP ,2 ) 

GO 

TO 

79 


IF 

(KoFOo2oANDoMm 0 f0 0 2) 

GO 

TO 

39 


IF 

(KoFQo4oANOaWN'oFOo3> 

GO 

TO 

61 


IF 

(KoF Qo4dAND,MWoFPfl2> 

GO 

TO 

39 


IF 

(KoFOoFflANnoW^oFOoP) 

GO 

TO 

39 


IF 

(K« FOoF,ANOqMMoFOo -, 1 

GO 

TO 

R3 


c 

14 


1 5 

I 6 

1 7 

1 B 
1 9 
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25 

26 

27 

28 

29 

30 

31 

7? 

73 

34 


rOWPUTIMH PRO AG A FUNCTION O r o AnC F/n 

XR1 3=- 1 6* 5527+57 o 45*SR|_0G-70 o 80 36*7 

XR33r499i>544-938 0 91 * ^P[_OO+60Oo 0?P^P - 1 

XR34 = 360 ,607-6 74 *5 38* SRLOG + 7R9o 1 7 a + 8-83 o 4 6 f 3*0 

XR4 6 = 4 B9o 62R — 4 58 0 ^4SQL 05+ 1 

XR 121 =-l0o# fPLOC-XPl 2 ) 

XR?31 1 Oo* ( PL0G-XP23 ) 

XR34 l=-10o^( p L0G— XP34 ) 

XR461 = - 1 0 ,* ( PLOG-XRAf ) 

IF ( XPI 21 -40 o > 1 5 , 1 8 , 1 R 

IF ( XR l 2 1 +A0 o 1 16*17,17 

TR 1 3 = 1 oO 
GO TO 19 

TR 12=1 o / ( 1 9 +PyP (XR 1 ? 1 ) V 
GO TO I 9 
TR 1 9 = 0 o 0 

IF ( XR23 1 -40 o ) 20*27, 27 

IF <XR231+40o) 2 1 * 22 o 22 
TR?7= 1 oO 
GO TO 34 

TR27= 1 o / C 1 o+ p yP (XP271 > ) 

GO TO 24 
TP?3-0oO 

IF ( XP74 1 -40 o ) 25,28,28 

IF ( V R74 1 +40, J 26*37,27 
TR74=1 a 
GO TO 29 

TP34=1 o/( 1 o +FyP (XP74 1 ) ) 

GO TO 29 
TQ34 = 0 o 0 

| F ( X R451-40ol 30*37,23 

IF <xR45I+40o) 3 1 ,77,32 

TR45 = 1 Q 0 

GO TO 74 

TR4^=l a / (! , + fvd ( y D4 6 i ) > 

GO TO 34 
TR4^=0o 0 

RHCL 1 = 1 FoOFl 867-0 o 00 228? a 5*pi OG- 1 6 0 994 34 2* ^RLOG+ P7?ft7#^ + 0 57n 

I 7968F*PLOG*SRLOG+7o I 7F974*p 

PHCL2-1 541 0 1 666-67 o9B035*PL0G-2993 o 1 66?*SRL0G+ o 935437*4+84 o 30775*5 
1 RLOG#PI_OG+1 938 6 706 1 +8- e 0 04 7460 1 6 + 0- 0 61 2P4 04* A #SRL 00-37 0 4 2 3666*R*OL 
20G-41 9o 0881 #0 

RHCL3 S 427 o 4 745— 1 8 0 1 ?6622*Pl_OG-765 0 4 7626 + SPLOG+ o 2974 31 69*4+290 03647 
1 7*PLOG*SPLOG+456o7l 7*8-6 00 1 7 0374 04 *C-o 1 8068709*4 *FPL 00-6 , 9 1 4 361 7*R 
2+PL0G-9 1 o 1 3 t 85 t *H 

RHCL4=2 06o231 44-8 0 2270278»p L OG-379 0 R465*GPLOG+o 1 3? 41 91 * A +9 © 8 88 4 1 65 
] *PLOG#5PLOG+ 1 75 o 0 797 1 *F- 0 nni CU 7R4 6**0- * 07654 371 *A *8Pt. 00-3 „ 69?Ol 44* 
2R*PLOG-31 o277R34*0 

RHCL5 = -399o ^2358+ 1 2o 8994 77*PL0G+ 4 1 1 0 64 1 44 +GRLOG- , 0 97694° 1 0*4 -6«,33o 
1 4477*PLOG*SRLOG-l %o67?3»P 

RHCAL = PHCL1+ ( RHCL7— PHGL ! ) * TP 1 2+ < RHCL 3-PHCL2 ) •» TR2 3+ ( PHrL4-PH0L 7 > *TQ 
1 34+ (RHCL5-RHCL4 )*TP4 5 

RH 1 5 = -79o 282533+6 , 3577n7p*Pt_0G+ 1 2272 1 * cot_OG- o 1 2607098* a -8 0 4 n 1 **! 
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c 

c 

c 


75‘* 


36 

17 


3a 

c 

c. 

c 

30 

40 


41 

4 ? 


43 

44 

45 

46 

47 

4R 

49 


]22*PL0G^5RL0r,-t?Q 4 9WO|.R + ,00l0ni7di7*r + # nn4ta cc; 1 1 *A*spLOC+7, i p 

266*PL0G*R+30 .203862*0 p 

RHCAL=RH1 5 + ( PHTAL-PHl 5 ) *y? 5 p 


D 

P 

D 

D 

D 

P 

n 

p 


RHOA - ( 1 0***PHCAL ) *1 * 09? 3 
I F (K.EO* 1 ) GO TO 39 
TF OC.eO*3) HO TO 6! 

IF (K. EQ. 2. AND.MM.FO. l ) on TO SQ 
IF (K.E0.4,ANn.MM.PQ a t ) GO TO 59 
IF (K.FG.5. ANO.MM.eq, 1 ) r ? n TO 5q 

CONVERGENCE TEST FOR X = 2 

I F ( APS ( 1 •-QHO/RHOA ) *LF. .on i > GO 
NN=NN+ 1 

IF f RHO.GT .RHQA ) GO TO "*7 

SPLOW=SR 

SPl rp=SP+r>FLSR 

IF (OFL5R.GT* 1 * ) GO TO 7 

TAPER ( 1 ) a SRLOUf 

TARSR <6 )=EQi fp 

IF (fc'.FO*?* OP »K* cr O#4 ) GO TO 36 

IF (K.FG*5> GO TO 36 

N-P 

GO TO 52 
N = -2 

GO TO 57 
SRuP=FR 

SPL OW = SR— OFt EP 
TF <OFLGQ,GT. 1 , > GO TO 7 
TAPER C 1 ) =GPi pP 
T APER ( 6 )=EPLOW 

IF {K*F0.?#0R,K.F0,4) GO TO 38 
IF (K.FQ.?) GO TO 3P 
N = ~7 

GO TO 5? 

N = ? 

GO TO 57 
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m op p 
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E5 
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P 
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COMPUTING ENTHALPY AS A FUNCTION OF P AMO E/R 
IF (CpLOG-1,6^ 40,40,41 

HPCAL = 1 P • 69 3 86 9 + 6 * 79 75 3 I ?*RL0G-4 B * “>?9? I 7#cpLOr,-, 1 ^ Q 6 je?i*ft_e # F 7 AQ 7 
1 74*PLOG*SRLOG+4B * 1 9?78*R+ *000901 44 1 12#r+ » 09 1 1 51 4 7 3 * A *ERLOn+ 1 # 62P^B 
229*PL0G*B~1 3 « 065267*0 
GO TO E| 

IF ( SRLOG— 1 • 76 ) 4?«4?,4fl 

HR?? =s — 1 56*371 94+6 » RLOG+ 3 ^ 0 .97097* SO|_OG- * 097 1 7 QQaf* A- 7 # ct 7 q 

l 71 4 *PLOG* SRLOG - 1 5 P. * 1 3866*0+ ,0A0 K 7O?<)pi7*r + , 058 76 A 7oe*A*GC>L OG + t>. f 50 
22755*PL0G*B+28.940o26*D 

HR 21 =“84* HO 8522 + 2, 57 M 71 R*dlOG+ 1 07*061 op* EPLOG- * n 1 j * -7 

1 194*PL0G*SRL0G-32. 716479*9 
XH=- 6 t « 2053+1 14*1 07 *eQL0G-42*567?*r 
XH 1 =-t O.* (Pl OG-XH > 

IF ( XH 1—40* ) 43*46*46 

IF fXHl+40*) 44*45*46 

TH =1 « 

GO TO 47 

TH=t •/ ( 1 .+FXP ( XH 1 ) ) 

GO TO 47 
TH = n * 0 

HPCAL=HR?1 + ( HR7?_hr? 1 )*TH 
GO TO 51 

IF (ERLOG-I.9?) 49*40*50 

HPCAL = -35. 1 60671 + . 5366924 +PLOG + E6 # 005PR* EP ( L OG- . 0 2?66t ^R»A-*4R47m 
1 05*ERL OG+PLOG — 27 * 64 1 08*7*0+ , 0 005RE68 8 39*C+ * O ! 620006 2* A * EPL OG+ .14 077 

2606+R+PL0G+4 *71 2261 *n 

GO TO 51 
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1 40 
I 5n 
1^1 
! 52 
1 5 7 
1 54 

1 E6 
1 ^6 
157 

! 5 p 

159 
! 60 
t 6 t 
1 62 
1 60 
1 64 
1 65 
1 66 
1 67 
1 60 
1 69 
1 70 

! 71 

1 72 
I 77 
124 
1 -re 
126 
! 27 
1 

t 70 
1 ft O 

! ft 1 
1 ft 2 
I 82 
1 84 
1 RE 
1 P 6 
1 P2 
1 PR 
t RQ 
I on 
19! 

! o? 
1 °2 
! 04 

1 nc; 
1 06 
197 
1 OP 
1 90 
?nn 
201 
? n? 
207 
2n4 

205 

706 

207 

20ft 
20 O 
21 * 
2 ! 1 
2? 7 

7!^ 
714 
?! 5 
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50 


5! 
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c 

r 

r 

5? 

57 

54 


5r 

^6 


67 

5R 


R9 

60 


r 

C 

C 

61 


HPCAl=- 1 1 4 0 94796+4oOn4^fl-«^PLOG+l Rn 0 ftR4?74^PUO^- 0 n4 1 ??77O7#ft-a P 0^ 

1 5 35* PL 0 G * S PL CG - 90 o 76O06*F+ n 00^4m?o^c?4»r+o^?4 360 74 R*A * FPL OC+ 1 *046 7 
2299*PL0G*R+ 1 5 a 467804*0 

HR 1 6 = 78 o 1 60664-7 o2339877*PLOG-59<>051694*RPLOG+ 0 8 64 97364 4* A+3 a 71 

1 57*PLOG*SRLOG+4 0 o 986^0 3*n_„ 00 04 797698*0- o'M ^7767 77*4 ^OL'-'P-I 0 77^46 

2n6*nLOG*p-R 0 7 ^ 7646*0 
HRCAl = HR1 5+ ( HRCAL-HR 15 J*T1 6 
HA = ( 1 Oo **HPr At ) #?R7 o 0?RR 
TF ( VToFOp | a OPo^ d^Oo 7 ) GO TO 61 
?F (KoPOn'i) GO TO 6t 

IF f K o FQ o 7 «> A ND o M M o FQ o 1 ) GO TO 5 = 

IF (KoFQ#4 > GO TO 4 

CONVERGENCE TFCT FOP K=7 

IF ( ABS ( l o-H/HA 1 oLF 0 gOOt > on TO 14 
NN=NN+ 1 

TF rHAoGToH) GO TO 77 
GO TO 75 

TMT^PPOUATTON r nP OFL.FP LFGS THAN' 1 
TAPH ( 1 > = HA 

OFL FP= ( TARSR (6 J-TAR6R < 1 ) )/5 o 
DO ^4 1=2*5 

TAPSP( I )s:TARGP( T-l )+PFLFP 
CONTINUE 

IF (<oFQo2oOR*KcFOoA ) GO TO 58 
IF (K fi Fn 0 P) GO TO 6R 

00 56 1=2*6 
MM= 1 

SR = TAB5R f J ) 

GO TO R 
TARH ( I ) = HA 

continue 

CALL ftlup ( H* SP *N , 6 * t aph* t apsp ) 

MM = ? 

GO TO a 
TARR ( 1 ) =RHOA 
GO TO 53 
DO 60 1=2*6 

MM= f 

SR=TAF5R ( I ) 

GO TO R 
T APR ( I ) =RHOA 
CONTINUE 

CALL FTLUP f PHO *SP * N *6 * TARP , TAPER > 

MM = 2 
GO TO 8 

rOMPUTTNG 7 

XZ 12 = 62*91-4! o5*SPL0G 
XZ27 = 72* 945-4^0 TP* fPlOG 
X7?4=65«75-77o5*5PL0 G 
XZ4^=62p 92-’’2 0 0*5PL0G 
X7 1 7 l =— I 0 o * ( PLOG— X Z 1 2 > 

XZ27I =- I Co* t PL0G-X72 7 > 

XZ 74 ! =-10o*(PL0G-X754 ) 

XZ4F1 =-10o*(PL0G-XZ4F) 

ZCAL2 = c >1 9 o 00374 -77 O 7 ^?5 1 4*PL0G-°B 2 O 0a72O*qOL0G+ o ' , 72'=>60c;-7# A + 7 a 6 a P 4 

1 79*PLOG*SRLOG+620 <>04 1 6B* CT - *0021 64 RRP6*C- 0 7271 rt'-'TP* A *EQL,nG-9 0 4Q6P2 7 
2*PL0G*R-1 29o7P92 1 *D 

ZCAL7 = 366 o 4 0674- 1 6o^t 74 44#PL0G-64 7 0 4 74 7** EPL OG+ o 1 ^7^1 + l 

1 87*PL0G*SPLOG+77P o 59B^4*R- 0 0 008 7P6P 4 7R*0 - a 1 8 6Ro 1 oa * a *cDLOO-5 □ I P8P7 
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62 

67 

ft4 

6 R 

6 ft 

67 

68 

69 

70 

71 
7? 

73 

74 
7ft 

76 

77 

78 

79 

an 

81 
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c 

r 


83 


C 

r 

c 

a? 

84 - 

as 

8ft 


87 


254*PLOG*R-73 .804269*0 

2CAL4 = ft lft # 073?i -1 6^o?77*p L or,-RnR I 40^7#.-;p L n^+ # n7t + | 

1 1 3*PLOG*SPLOG+4t,0 .487 4 ! *<=> + .00094 1 07 „ o f rj-rp-rp, 7*4 * 0 O|_. O0 - 7 , 004 p 

290ft *PL OG*R— 7 ] i038°?1*r> 

IF ( XZ ! 2 1 “4 0 * ) ft?*ftft, 6 ft 
IF (XZ12I+40.) 63 , 64 *64 
TZ 1 2=1 • 

GO TO ftft 

T7t 3=1 •/( 1 .+fxp 1X7131)) 

GO TO 6 ft 
TZ1 3 = 0.0 

IF (XZ231-40.) 67 , 70 « 70 
IF fXZ231+40.) 68 , 6 p, 6 Q 

T733=l* 

GO TO 71 

TZ?7=l . / M ,+pyp (X7?31 > 1 
GO TO 71 
TZ27 = 0 • 0 

IF t XZ .34 1 —40 • ) 72 . 7ft , 7ft 
IF ( XZ 34 1 +40 • ) 73*74,74 

TZ34= 1 * 

GO TO 76 

TZ34 = l*/n * -f F XP ( XZ34 1 ) ) 

GO TO 76 
TZ 34 = O * 0 

IF (XZ4RI-40.) 77,00*80 

IF ( XZ4 ft 1 +4 0 • ) 78,79,79 

TZ4ft=l • 

GO TO 81 

TZ4ft=l ./f 1 •+FXP(X74F ! ) ) 

GO TO 81 
TZ4ft=0.0 

2CAl = I •O-MZCALZ-I « )*TZ12+(ZCA|_3-ZCAL2l*TZ?7+(7CAL4-ZCAL3) *TZ34+ (4 • 

I 0 — 70.AL4 )^T74^ 

7GAL-I .+C7CAL-! . )*Tl* 

Z=ZOAL 

COMPUTING T(DFG K ) 

IF (<• F0*3* OP.K .F0.4 ) GO TO HP 
IF (K.FO.ft) GO TO 82 
RHOrPHOA 

TA=P*WO/(RHO*RuN] V*Z ) 

IF CK.FQ.ft) GO TO 1 
T=TA 

COMPUTING A (M/SPT > 

IF (T-2100.) 84,84, R7 

IF (T-1500, j 
IF (PLOG+1.) 87,87,86 
CONI =0ORT (T/37 3 . 1 ft) 

AOAO = - • 07ft3808+CON! * (1 » 1 9644 — . 0882696*0 ON 1 ) 
awmi # 3 l 1 ft*AO AO 
GO TO 108 

XAl? = 63ft. 0ft4-lP30 . 4 6*-ftRLOG4R03« 883*8 - 1 8 O , 840*17 
X A 33=373. 70 2-6ft3 • 3ft8*SRL0G+4Q8 -0^4 * 8 - 86 . 80^6*0 
X A 34 = 1 703 • 78-360? • 9 7*SR|_0G + 1 3 37 . 93*8 -3.3 1 *43?*H 
XA 22= 1 04 3,37-1 820 « 34*RRlOG+ ] Q7ft . 76*0-3 t ft • 4 4 ft *0 
XA ! 31 = -l 0.* (PUOG-XA 1 3 ) 

XA331 =- 10.* ( PL0G-XA23 ) 

XA341=-10.*fPLOG-XA34 ) 

XA 23 t = — 1 0 . * ( PL0G-XA22 ) 

A 1 =-4409 • 624 t + t 9ft » R27ftg#p|_0r;+B74 6 . 4 634*RRLOG- 3 . 1 6 ^ 0390 * a - 363.32947 
1 *P[_OG*SPL 00-8786* 44 9*84.02 0004 186*0+2.! 4 398^8* A *«= PLOG + 87 , c^q9n3o+tJL 
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88 
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90 

9] 

9? 


93 

94 

95 

96 

97 
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99 

1 00 

101 

102 

103 

104 
1 05 


106 

107 

c 

c 

c 

108 


1 09 
1 1 * 
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20G*R + 1 P77©67 1 8*D 

A2 1 = - 1 B 1 4 © 5 1 17 + 86o0 9*07R#DLOG + 331^o6990#‘=iPLnG-l © 7603074 * A- 1 
1 *PL0G*SRLOG-2023 o 201 *R+o0 1 63 87679*0+ 1 © 1 79R| 74*A#SPLOG + 77 © 6«96 o7*pl 
20G*5+4 1 3o41 945*D 

A?2=?651 0 7944-81 © 4n66Q6*PL0G— 3099 © on64*SPl OG + 0 6976 266R* A + 4P<> 06260*. 

1 *PL0G*SRL0G+907a70RPO*R 
IF fXA221-40 g > flo 0 Rfl,RR 
TA??=0o0 
GO TO 92 

IF ( X A 22 1 +4 0 o > 90<,90 0 91 
T A 22 - 1 oO 
GO TO 92 

TA?2=1 © /U fl +FXP ( X A 22 1 ) ) 

A2=A?1 + { A22- API )*TA22 

A3 = -32l7o80 37+I 96o74064*PLOO+634R 0 2 1 47#5PLP0-4 0 626 8476* A- 22 1 o 1 3^0^ 

t #PL0G»SRL0G-2970 e 8649*B+o 0 4461 4 35R*C + 2o 7070 1 77*A *SRL0G+67 0 042 Ro3*p 

2L0G*R+553© 1 2007*0 

A4 = 1 6976 o 9.39-4 76© 1 024?*PL0G- l 744 5 © 7 1 **GPL OG + 3 © 6R74 06 7 *a+ 246 © 4 1 1 26* 
1 PLOG«SRLOG+4406-o 31 18*0 
IF ( XA 1 2 1 “40 a ) 94,03o97 

T A ! 2-0 ? 0 
GO TO 97 

IF ( X A 1 21 +4 0 a ) 95906,96 

TAl?=loO 

GO TO 97 

TA12=1 o/U ©+EXP (XA1 21 )) 

IF ( X A 23 1 -40 g ) 99 o 98 « 98 
T A 23 = 0 0 0 
GO TO 102 

IF <XA23t+40o) 100,100*191 

TA27 = 1 0 0 
GO TO 1 02 

TA23=1 o/t 1 ,+FXP (XA?7] )) 

IF ( X A 34 1 — 40 © ) 10 4,1 07 <107 

T A 34 - 0 o 0 
GO TO 107 

IF ( X A 34 1 +40 o ) 10** 105,106 

T A 34 = 1 oO 
GO TO 107 

TA74 = 1 o/(l ©+FXP CXA34 1 M 

A 0 A O = A 1 + { A 2- A 1 ) * T A 1 3+ ( A 3- A 7 >*T A 2 7 + ( A 4 - A 2 J *T 4 14 
A M = 33 1 o 3 1 I 5*AQA0 

fO^PUT T NG GAMF 

GAmF=W0*Am**2/ (PUN1 V*7*T ) 

IF ( *< oFO® 2 1 GO TO 109 
IF (KoFOg7gORg< ©*0*4 ) GO TO no 
IF ( K o EO o 5 > GO TO I 1 O 

H = H A 

GO TO 110 
h=ha 

ppTijPM 

fnh 

SURROUTINF INTPP fN,X«Y,XTNT*Y!NT) 

DIMENSION X ( N 1 * Y (N) 

Y I NT =0 o 

DO 3 I = 1 o N 

S» JMN = 1 o 

SUMD* 1 o 

DO 2 J=1 oN 

IF f J-I ) 1*2*1 

SUMN = SUMN* (X TNT-X (J)) 

SUMD = SUMD#<Xt I )-X(JU 
GONT I NUE 


o 

7* A 

p 

7 A -7 

D 

34 R 

O 

74° 

O 

7t=:0 

n 

-»*^1 

n 

7c;2 

o 

767 

n 

364 

P 
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o 


o 
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36 A 
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3A 1 

e 
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o 

7A4 

D 
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766 
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767 
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P 

7*0 

O 

77^ 

P 

77 1 

O 

772 

P 

777 
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■^74 

o 

776 

p 

^76 

n 

777 

o 

770 

P 

770 

o 

7RO 

O 

7R1 

n 

7R7 

P 

7R7 

o 

7P4 
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7R6 

p 

-TO A 

D 

7P7 

O 

7«q 

D 

ipo 

O 

70* 

P 
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OOP 
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n 

700 

p 

700 
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3 YTMT = Y INT + Y ( n #.SUMM/qivn 

PFTllPN 

end 

SURROUTINF SC f R ? I • U T « P I « H T , R l I | g a \/ > 

COMMON /BLK4/ LF . NON »LU ♦ NnR I V * LB * LO • L O 
COMMON /BLKF/ FP.T! ! .A! .7! t r,!iK t D?,!^P 
R7T-1 0.*R1 ! 

IF (LB.EQ. t ) CO TO f 

CALL shock (R.r .n.Ri i .uf',o,h) 

1 UI =US* ( 1 .-Rl I /QP I ) 

pi = r- (p? i * < us-ut ) **? ) 
hi m-. f* (us-t Ji >**p 
IF (LB.FO.P) GO TO 3 
GO TO (P. 3 > . TSAV 

2 CALL SFARCH {PI .PMew.HI .SQ.TT I .M ,71 .GI «ZFt« ic n) 
GO TO 4 

3 CALL SAVE fPT tRNPW,HI . SR , T I I , AT , 7! . G! < ) 

4 IF ( ABS ( 1 ,-PNFvr/OE I ) ,LF* , nn i ) r,0 to o 
R2 I - RNFUI 

GO TO I 

B US=GQPT ( {PI-P)/(PJ T* f I #-Pl I/PPI ) ) ) 

UI=lfF*{ 1 .-PI I/QPI ) 

HI = H-f- • F* (US* *3- (US-IM >#*?> 

GO TO TGAW 

6 call Search ip i ,pmfw ,hi , gp,t t i ♦ m •? ! ,g t ,zf ? , i sp j 

GO TO fl 

7 CALL SAVF (P T •QNFW.H! • SR, T ! I « A I ,71 , Gl , 7 ) 

B IF f ARS ( 1 ,-DNnif/pj n ,LF. ."I’M > r,o Tn o 

RPI =PNFW 
GO TO F 
R RETURN 

end 

SURROUTINF SOLUT ( U3 , PB , n? , P2 « M * N ,uR , 0 > 

OTmfnSION DT(^n )t up (\ O > , r>P tl"), n(?) 

FUNrr'(PP,uu < P 1 rPD-m)#p 

FUNAR < P.PP, i r , UIJ ) = (D-PP 1 / (\ i_i m ) 

r 

c USP" r ND POINTS FOR FIRST I MTFRScr T I ON 

C 

WDr \ 

NR- | 

IF (P2(1),GT.P?(?)) nR=-NQ 
IF CP3< 1 )»gT«P3(2 ) 1 wp-.vp 
I =PB ( 1 ) 

P3?=D3(M ) 

RP 1 -P2 f 1 1 

ppp=n ? ( N ) 

Upt =U?( I 1 
U?P-uP <N> 

U3I =MJ3 ( 1 ) 

U3P=U3(M) 

1 AA=:FUNAo (ppp,D?i .UP?, 1171 ) 

RRrpUNAR < P3? ,P31 tUBP.UB! ) 

CC-FUNCO<P2l ,U?1 , A A > 

DO = FUNCD(P31 * U3 1 ,RR ) 
ur= tec- no i/i pb-a a ) 

PR=CC+UR*AA 

CALL r TLUP ( PR,U( 1 ) ,NP ,N *P? .UP ) 

CALL ^TLUP < PR ,U ( ? ) ♦ wR , m , 00 , UB ) 

IF (ARS ( (IK 1 1 - U < ? ) 1 /ti ( 1 )) — ,orni ) ->,o,p 

2 P31 tP3? 
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P3?=PR 

F 

30 

P21 = P2? 

F 


P2?=PR 

C 


U31 =U32 

8 

^-1 

U3?=U(2 ) 

8 

34 

U21 =U22 

8 

7*8 

U2?=U( I ) 

c 

3* 

GO TO 1 

8 

77 

P=PP 

c; 

1R 

RFTUPN 

c 

IQ 

fnd 

c: 

4 n 


-on 

LoEoTo PROGRAM FOR EQUILIBRIUM REAL AIP« 

SlNP RUN=44 1 ,P1 =3447o8 « U8 1 =286B , « 0 FLUB = .73n* 

£ INP RUN=86 0 PI «US 1 = 4 300 , 1 ^=7800 « I RFP= 1 gO^LI iB = *=>nO* 


Sample data printouts for representative tests in the Langley 6 -inch expansion tube 
with unheated and arc-heated helium driver gases are presented on the following pages. 
In most instances, the headings for various flow regions correspond to those in the sec- 
tion entitled "Symbols." Exceptions are UI, which denotes either the test-air— driver- 
gas interface velocity or acceleration-air — test-air interface velocity, RATIO, which 
denotes the ratio of density immediately behind an incident or standing shock to free- 
stream density, and labels ending in T (under heading "Shock Tube Flow Parameters 
Using Mirels Theory") which denote turbulent flow quantities. The sample printouts are 
as follows: 


Unheated Helium Driver Gas 


06 / 19/74 

Lo€oT, PROGRAM FOR EQUILIBRIUM REAL AIR 


EXPANSION TUBE PROGRAM DF MILLER FOR REAL AIR 
ALL PHYSICAL QUANTITIES IN MKS UNITS- NASA SP -7012 


SHOCK TUBE PHASE OF PROGRAM 


MEASURED INPUTS FOR SHOCK TUBE PHASE 

RUN pi Tl US 1 P 2 P 4 T 4 XIS OIA ISAV INU LD 

4 „ 410 E *02 3 . 4 <*TE *03 3 -O 0 OE*OZ 2 . 865 E *03 Oo 0 - 0 . 4 . 650 F +00 1 . 524 E -01 2 2 4 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

CONDITIONS BEHINO INCIDENT SHOCK - REGION 2 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXX 

P RHO T H S/R Z GAME A U M MR E 

2 . 895 E *05 3 . 0 B 7 E -01 3 . 175 E *03 4 . 336 E *06 3 . 302 E* 0 i 1 * 029 E *00 U 151 F *00 l. 03 ?E +03 2 * 493 E >03 2 . 400 E +00 8 . 604 f» 0 b 


3ATIO- 2 TO l CONDITIONS AND SHOCK VELOCITY 
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P RHO T H 

8 . 3966+01 7, 71 0E*00 1.O50E+OI 1.4436+01 


A MSI US1 

2.9926+00 0.252E+OO 2.865E+03 


SHOCK TUBE FLOW PARAMETERS USING MIAELS THEORY 

LHAX L L/LMAX TIM UT LMAXT LT LT/LMAXT TIMT. UI T Tt^ 

7. 3246 +01 5.6756-01 7.7486-03 2.2456-04 2.527E+03 1.03Q6+00 4.235E-01 4.1116-01 U580E-04 2.681E+03 2. 4196-04 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
EXPANSION TUBE PHASE OF PROGRAM 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


INPUTS FOR EXPANSION TUBE PHASE 


U5 P5 

5.500E+03 0. 


X AS 0ELU5 

1 . 698E + 0 l 3. 300E+02 


! SA V IEXP IREP NVEL I AC JAC 
2 1 I 8 50 50 


5 CONDITIONS FOR FROZEN EXPANSION 

P RHO T H S/A 1 GAME A U M NflE 

l. 4816*03 7.307E-03 6.8S0E+02 6-9796*05 3.302F+01 1.029E+00 1.4096+00 5.345E+02 5-5006+03 1.0296*01 1*2216*06 


STATIC CONDITIONS BEHIND BOW SHOCK - REGION 5S 
FROZEN EXPANSION — EQUILIBRIUM POST SHOCK 

P RHO T H S/A Z GAME A U M °A T ID 

2.0276*05 0.1576-02 6.398E*03 I.6BIE*07 4.243E+01 1.3536*00 L. 1446+00 L.6B6E+03 4.924E+02 2.921E-01 l.ll6E*0l 


STAGNATION CONDITIONS BEHIND BOW SHOCK-REGION T5 
FROZEN EXPANSION— EQUILIBRIUM POST SHOCK 

P RHO T H l GAME A QT RN TIM! 

2.1286*05 B.510E-02 6.4276*03 U 693E+07 l.356E*00 1.1446*00 1.691E+Q3 1. 8676+07 2. 5406-02 3.323E-04 


STATIC CONDITIONS BFHTND BOW SHOCK - REGION 5$ 

FROZEN EXPANSION— FROZEN POST SHOCK 

P RHO T H S/R Z GAME A U M P AT J r 

1.032E+O5 4.111E-02 1.509E+04 1-5356*07 3.885E+01 1.Q29E+00 1.409E+00 2.5066+03 9-775E+02 3.9Q0E-01 5.626E+00 


STAGNATION CONDITIONS BEHIND BOW SHOCK-REGION T5 
FROZEN EXPANSION — FROZEN POST SHOCK 

P RHO T HZ GAME A QT RN T|MI 

2. 036E+05 4.431F-02 1.555E+04 1.5B2E+07 1.029E+00 1.409F+00 2.545E+03 1.7056+0? 2.5406-02 3.323E-04 

AEOC REAL-AIR TAPE USED FOR UNSTEADY EXP ANS ION-IE XP= i 


5 CONDITIONS FOR EQUILI3RIUM EXPANSION 

P «*0 T H S/R Z GAME A U M NRF 

4.457E+03 1.060E-02 1.464E+03 1.596E+06 3. 3026 + 01 UOOOE + OO l. 3066*00 7.410F+02 5.500E+03 7.423E+00 U122E + 06 


STATIC CONDITIONS BEHIND BOH SHOCK - REGION 5S 
EQUILIBRIUM 6K P ANS ION— 6 QU1L I BRI UM POST SHOCK 

p T H S/R Z GAME A U M RATTO 

2.9646*05 1-.18 &E-01 6.484E + 03 1.660E + 07 4.1 806 + 01 1.3426*00 1.1476*00 1.6936+03 4.9106+02 2.900E-01 1.120F + 01 


STAGNATION CONDITIONS BEHIND BOW SHOCK-REGION T5 
EQUILIBRIUM EX PAN SI ON- -6 QUIL IBRT UM POST SHDCK 

P RHO T H Z GAMp A QT R9 T|f»I 

3.U0E+O5 1* 237E-01 6.5146+03 1.6726*07 1.345E + 00 1.147E + 0O 1.69BE + 03 2.229E + 07 2.5406-0 2 4.8076-04 


X XXXX XXXXXXXXXX XXX XXXX XX XXXXXXXX XXXXXXXXXXXXXXXXXXXXXX 
FOLLOWING EQUILIBRIUM CONDITIONS INCLUDE FLOW ATTN 
XX XXXXXXXX XXXX XXXXXXXX XXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXX 
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5 CONDITIONS FOR E01HLI3RJUM EXPANSION 

P RHQ T H s/r. 

*♦4578+03 U060E-02 I.46AF+03 1.596F+06 3®302F + 01 


STATIC CONDITIONS BEHIND BOW SHOCK - REGION 5S 
EQUILIBRIUM EX P ANS ION — EQUI L I BRI UM POST SHOCK 

P RHO T H S/R 

2 . 282 E +05 1-Q74E-01 5.855E + 03 U319E + 07 4.O19E+01 


STAGNATION CONDITIONS BEHIND BOW SHOCK-REGION T5 
EQUILIBRIUM EXPANSION — EQUILIBRIUM POST SHOCK 

P RHO T H Z 

2® 407E +05 1« 124E- 0 1 5.890E+03 U331E + 07 L.266E+00 


ACCELERATION AIR CONDITIONS IREGION 201 ANO PIO 
P20 RH020 T 20 H20 220 

4.45TE+03 1.986E-03 5®493E«-03. U767E + 0? Io423€+00 


l GAME A U K 

l t OOOE + OO 1® 306E+Q0 7*410E+02 4®B*0E+03 6.53ZE+00 9 


l GAME A U M 

L® 264E + 00 le 1 63 E + 00 1.572E + 03 4. 7756+02 3.038E-01 I 


GAME A QT RN TIM! 

1.162E+00 U578E + 03 l®553E+07 2.540E-02 6®342E-04 


M20 PIO USIO MS 10 RATIO 

3-477E+00 i® l 78E+01 5.908E+03 1.702E+01 1.452E+01 


ACCELERATION AIR FLOW PARAMETERS USING MIRELS THEORY 


ttAS 

X A 

LM AX 

L 

L/LMAX 

I . 69 8E +01 

U698E + 00 

2.038E-01 

6® 8476-02 

3.3596-Ql 

U690E+OI 

3-396E+00 

2,0386-01 

loO0OE-Ol 

5,299E-0i 

I-698E+01 

5.094E+00 

2.O30E-OI 

l® 3A5E-01 

6 ® 599 E-0 1 

L • 698E +0 L 

6® 79ZE + 00 

2.038E-01 

1® 53 IE- 01 

T® 5 09 E-0 1 

L® 69 0E+O 1 

8® A90E + 00 

2.O38E-0L 

1® 66AE-01 

B.163E-01 

1® 698E +0 1 

U019E + 01 

2o 038E-0 1 

1® 761E-01 

8®638E-01 

1 ®69BE +0 l 

1, 189E + 01 

2-038E-01 

1® B32E-01 

8 « 987E-0 1 

L « 698E +0 1 

t. 35BE + 01 

2.038E-OL 

l.BBAE-Ol 

9®2A5E-0l 

l ® 698E +0 L 

1.52 BE + 01 

2® 038E— 0 l 

i® 423F-01 

9.A36E-0L 

1-698E +01 

1.69BE+01 

2® 038E-0 1 

1.952E-01 

9.5T8E-0L 


T1R Ut U1/U5 US20/UI TIM 

1 o 193E-0 5 5.738E+03 U043E+00 1.030E+00 2®127E-05 
l®663E-05 5® 798E+03 1®054E+00 U0L9E+00 4.253E-05 
2o 306E-05 5® 832E+03 U060E + 00 1.O13E+00 6®38QE-05 
2®6l5E-05 5® B54E+-03 K064E + 00 1®009E+00 B.50TE-05 
2® 835E-05 5®869£*03 U06TE+00 l-OOTE + OO U063E-04 
2 ® 995E-0 5 5® 8 80E+-03 1.069E+00 K005E+00 U276F-04 
3.112E-05 5.887E+03 l,070E + 0Q U004E+00 U489E-04 
3. 198E -0 5 5® B92E+03 W071E + 00 U003E+-00 lo70lE-04 
3® 262E-05 5®896E + 03 1.07ZE+00 W002E+00 1.914E-04 
3® 3 L0E-Q5 5.B99E+03 W073E + 00 UOOIE+OO 2-127E-04 


.kxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
CONDITIONS BEHIND STANDING SHOCK AT SECONOARV DIAPH 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

p rh Q T H S/R l GAME A U M 

I.751E+06 U294E + 00 4. 307E+0 3 7.267E+06 3®380E+01 1®09AE+00 L.201E+OQ 1-275E+03 5®9*6E+02 4®665E-0l 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

EXPANSION TUBE PHASE OF PROGRAM 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


INPUTS FOR EXPANSION TUBE PHASE 

U5 P5 X AS 0ELU5 I SAV TEX* IREP NVEL TAG JAC 

5.500E+03 0® 1.698F+01 3®300E + 02 2 1 l 8 50 50 


5 CONDITIONS FOR FROZEN EXPANSION 

p QHO T H S/R l GAME A U M 

I » AOOE +02 l®762E-03 2.529E + 02 2®6A3F+05 3.3B0F+01 U09AS+00 l®A30E + 00 3.370E+02 5®50OE+O3 1.632E+01 


STATIC CONDITIONS BEHIND BOW SHOCK - REGION 5S 
FROZEN EXPANSION— EQUILIBRIUM POST SHOCK 

P p HO T H S/R Z GAME a u M 

A® 860E + OA U972E-02 6.122E+-03 U 803E + 07 A®5I2E + 01 U405E + 00 l®i31E+00 1.671E+03 A®9l3E + 02 2®941E-01 


STAGNATION CONDITIONS BEHINO BOW SHOCK-REGION T5 
FROZEN EXPANSION— EQUILIBRIUM POST SHOCK 

p PHO T H Z GAME A QT RN TJMI 

5® 11 1 E +0 4 2- 058 E- 02 6®146E+03 U815E + 07 U408F + 00 1®L31E+00 t®676f4C3 9®B26E*06 2.540E-02 2.Q15E-04 


NRE 

.B70E+05 


RATI 3 
*0 13E + 01 


NRE 

• 781 E + 06 


NRE 

6.015E+05 


RATIO 
1 ♦ 1 19E-+0L 
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STATIC CONDITIONS BEHIND BOW SHOCK - REGION 5$ 
FROZEN EXPANSION — FROZEN POST SHOCK 


P RHO T H S/R l GAME A U M 

4.3856*04 9- 794E-03 1.426E+04 1.490E+07 4.L47E+01 1.094E+0Q 1.430E+00 2.530E+03 9. 8968+02 3.911E-01 


STAGNATION CONDITIONS &EHTNO BOH SHOCK-REGION T5 
FROZEN EXPANSION — FROZEN POST SHOCK 

P ftHO T H l GAME A QT RN TIMI 

4.803E+O4 l » 0566- 02 1.472E+04 1.539E + 07 1.0948+00 1.430E+00 2.571E+C3 B.117E+06 2.540E-02 2.015E-04 

AE DC REAL-AIR TAPE USED FOR UNSTEADY EXPANS ION-IEXP=| 


5 CONDITIONS FOft EQUILIBRIUM EXPANSION 

P RHO T H S / R Z GAME A U M 

6.0526+03 1.126E-02 1.B70E+Q3 2.111E+06 3.3806+01 l.OOOE+OQ L.278E+00 8.2846+02 5.500E+03 6.639E+00 


STATIC CONDITIONS BEHIND BOH SHOCK - REGION 5S 
EQUILIBRIUM EXPANSION— EQUILIBRIUM POST SHOCK 

P RHO T H S/R Z GAME A U M 

3* 1566 *0 5 1. 236E- 0 1 6. 571E+Q3 1.7UE + 07 4.Z0QE+01 1.3546+00 1.147E+Q0 1.71IF+03 5.009E+02 2.9278-01 


STAGNATION CONDITIONS BEHIND BOW SHOCK-REGION T5 
EQUILIBRIUM EX PANS tON--EQU IL I BR I UM POST SHOCK 

p RHO T H Z GAME A QT RN ti*i 

3.315E+05 1.289E-01 6. 6026+03 1.725E+07 1.3576*00 1.147E+00 1.7176+03 2.375E+07 2.5406-02 5.47 5 E-04 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

FOLLOWING EQUILIBRIUM CONDITIONS INCLUDE FLOW ATTN 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


5 CONDITIONS FOR EQUILIBRIUM EXPANSION 

p R^O T H S/R l GAME A U M 

052E +0 3 1.I26F-02 1.870E+03 2.111E+0 6 3.380E+01 1.0006+00 1.2786+00 8,2846+02 4.840E + 03 5. 8426+00 


STATIC CONDITIONS BEHIND BOH SHOCK - REGION 5S 
EQUILIBRIUM EXP ANSION— E QUIL ! BR I UM POST SHOCK 

P RHO T H S/R Z GAME A U H 

2.431E+05 1.1136-01 5.959E+03 1.37QE+07 4.0418+01 1.2756+00 1.160E+00 1.5928+03 4. 6978+02 3.0778-01 


STAGNATION CONDITIONS BEHIND BOW SHOCK-REGION T5 
EQUILIBRIUM EX PANS ION— EOUIL I BRI UH POST SHOCK 

p T H l GAME A QT RN T f MI 

2 • 56 BE +05 1.166E-01 6.005E+03 1. 382E+OT 1.277E+00 i. 1598+00 1.598E+03 I.668E+07 2.5408-02 7.245E-Q4 


ACCELERATION AIR CONDITIONS (REGION 20) AND P10 

P20 RH020 T20 H20 Z20 M20 P10 US10 M$10 RATIO 

6,0526+03 2.667E-03 5.5656+03 1.T69E+07 1.4216+00 3.455E+00 1.5996+01 5.912E+03 1.703E+01 1.4366+01 


ACCELERATION AIR FLOW PARAMETERS USING NIRELS THEORY 


XAS 

1 • 698E+0 I 
1,6986+01 
1,6986+01 
l • 698E +01 
1.698E+01 
1-698E+01 
1 • 696E+0 l 
l .6988+01 
1.698E+01 
1.698E+0I 


XA 

1,6986+00 
3.396E+00 
5. 094E+00 
6.792E+00 
8. 490E+00 
1.019E+01 
1. 189E+01 
I.358E+01 
1, 52 88+01 
1. 698E+01 


LMAX 

2. 7658- 01 
2.7656-01 
2. T65E-01 
2,76 5E-0 1 
2,76 58-0 1 
2 , 765E-0 1 
2.765E-01 
2, 765E-0 I 

2.7658- 01 
2 • 765E-0 l 


L 

7, 47 iE-02 
1 . 2218-01 
1 . 562E-01 
l, 819E-01 
2. 016E-0L 
2. 169E-01 
2, 289E-01 
2. 3B4E-0L 
2, 46 06 - 0 1 
2. 520E-0 L 


L/LMAX 
2,7 02E-0 1 
4.4I4C-01 
5.649E-01 
6.5776-01 
7.209E-OI 
7.843E-0L 
0,2788-01 
8, 6228-01 
8,8956-01 
9.1126-01 


TIM 

1,3076-05 
2.113E-05 
2,6086-05 
3.U6E-05 
3, 444E-05 
3. 697E-05 
3,896E-05 
4.0528-05 
4, 1766-05 
4.2758-05 


UI 

5.717E+03 
5.776E+03 
5.8126+03 
5-8368+03 
5.8538 + 03 
5.0668+03 
5.8768+03 
5.8836+03 
5.8896+03 
5. 894E+03 


UI/U5 US20/UI 
1.039E+00 1.0348+00 
1.050E+00 1 • 024E+00 
1.057E + 00 1.017E + 00 
1.061E+00 l * Ol 36+00 
1 .0646+00 i. 01 06+00 
1.0678+00 l • 0D9E+00 
1.0688+00 l • 0066+00 
1.070E+00 1. 0056+00 
1.071E+00 1.0046+00 
1.072E+00 1. 0036+00 


TIKI 

2.1498-05 
4.29BE-05 
6-448E-05 
8,5978-05 
1.0756-04 
1,2906-04 
1.504E-04 
1.719E-04 
1.9346-04 
2. 1496-04 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


RATn 
i.55BE + 0D 


NRF 

•002E+06 


R AT T D 
.097E+01 


NRE 

-817E+05 


ratio 

.8826+00 
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CONDITIONS BEHIND REFLECTED SHOCK AT SECONDARY D1 APH 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


P RHO T H 

2 . 6546 + 06 1.6396+00 4.994E+03 8* 687E+06 


S/R 

3,4516+01 


l GAME 

1. 1326+00 1 *2256+00 


A U 

1 *4006+03 0, 


M 

0* 


0 , 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

EXPANSION TUBE PHASE OF PROGRAM 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


INPUTS FOR EXPANSION TUBE PHASE 

U5 P5 X AS 0ELU5 

5, 5 0 06 +03 Oo 1.698E+01 3,3006 + 02 


ISAV IEXP IR6P NVEL I AC JAC 
2 l L 0 5.0 50 


5 CONDITIONS FOR FROZEN EXPANSION 

P RHO T H S/R 

B » 689E +0 1 1« 266E-03 2.U2E+02 2-2426 + 05 3.451E+01 


l GAME A 

1. 1326+00 1.4416+00 3ol45E*02 


U 

5- 5006+03 


N 

1.749E+01 5 


STATIC CONDITIONS BEHIND BOH SHOCK * REGION 5S 
FROZEN EXPANSION— EQUILIBRIUM POST SHOCK 


P RHO T 

3.4916+04 1.3946-02 6.097E+03 


H S/R 

U802E + O7 4.605E + 01 


l GAME 

1.431E+00 U127E + 00 


A U M 

1.680E+03 4.991E+02 2.9T1E-01 1 


STAGNATION CONDITIONS BEHIND 
FROZEN EXPANSION— EQUILIBRIUM 


BOH SHOCK-REGION T5 
POST SHOCK 


p RHO 

1.669E+04 I. 4576-02 6 


T H 

120E + 03 1.895E + 07 


l GAME A 

1.4336 + 00 1.1286+00 1.685E + 03 


OT RN 

0.6946+06 2.540E-02 


T1HI 

1.8726-04 


STATIC CONDITIONS BEHIND BOW SHOCK - REGION 5S 
FROZEN EXPANSION — FROZEN POST SHOCK 

p RHO T H S/R 

3.137E+04 6. 904E-03 L.398E+04 1.404E+O7 4.232E+01 


l 

1.132E+00 


GAME A 0 

i. 4416+00 2. 5596+03 1.009E+03 


M 

3.942E-01 


STAGNATION CONDITIONS BEHINO BOH SHOCK-REGION T5 
FftOZEM EXPANSION — FROZEN POST SHOCK 

p RHO T H l 

3.502E+04 7.452E-03 1.446E+04 1.5356+07 1.1326+00 


GAME A QT RN TIMT 

U441E+00 2. 6 02 E + 03 6.8556 + 06 2.540E-02 L.872E-Q4 


AEDC REAL-AIR TAPE USED FOR UNSTEAOY EXP ANS ION-IEXP* 1 


5 CONDITIONS FOR EQUILIBRIUM EXPANSION 

p RHO T H S/R 

7.T29E+03 1. IB8E-02 2.256E+03 2.676E+06 3.4516+01 


Z 

1.003E+00 


GAME A U 

1. 2256+00 8.925E+02 5.500E+03 


M 

6.1636+00 


STATIC CONDITIONS BEHIND BOW SHOCK - REGION 5$ 
EQUILIBRIUM EXPANSION — EQUIL I8R1UM POST SHOCK 


P 

3. 33BE +05 


RHO T H S/R 

1.2T8E-01 6. 6566+03 1.767E+07 4.222E+01 


l GAME A U M 

1.367F+00 1.146E+00 1.730E+03 5.1116+02 2.9546-01 


STAGNATION CONDITIONS BEHINO BOW SHOCK-REGION T5 
EQUILIBRIUM EXPANSION — EQUILIBRIUM POST SHOCK 


P 

3.50 36+05 


RHO T 

1.334E-01 6.6886 + 03 


H l 

1.7806 + 07 1.370F+00 


GAME a QT RN TfHl 

1. 1466+00 1.7366+03 2.523E+07 2. 5406-02 5.9B0E-O4 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

FOLLOWING EQUILIBRIUM CONDITIONS INCLUDE FLOW ATTN 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


NRE 


NRE 

.0166+05 


RAT I 7 
.1016+01 


^ AT I D 
.4536*00 


NRE 

9.309F+05 


R ATI 3 
1.0756+01 
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5 CONDITIONS FOR €0Ul LIBRIUM EXPANSION 


p RHO T H S/R ? GAME A U M wre 

T . 729E *03 1* 1886-02 2. 2566+03 2.6766+06 344516*01 U003E+00 W225E+OC 8.9256+02 4*8406*03 5.423E+00 8.1926+05 


STATIC CONDITIONS BEHIND BOW SHOCK - REGION 5S 
EQUILIBRIUM EXPANS ION— EOUIL I BRI UM POST SHOCK 

p RHO T H S/R l GAME A U M RATn 

2*5716*05 1.1436-01 6. 085E+03 1.4266*07 4*067E*01 1.2B6E*00 1.156E + 00 1.6136+03 5.0296+02 3.1186-01 9.6236+00 


STAGNATION conditions behino bow SHOCK-REGION T5 
EQUILIBRIUM EXPANS ION— E QUILI BR I UM POST SHOCK 

p RHO T H Z GAME A QT RN T1 MI 

2.7206*05 1.200F-01 6.1216*03 1.4396*07 1.290E+00 1.1566*00 l*6L9E*03 1*7886*07 2.5406-02 7.9326-04 


ACCELERATION AIR CONDITIONS (REGION 20) ANO P 10 
P20 RH020 T 20 H20 Z20 


7.7296 *03 

3.375E-03 

5*62 JE+03 

1-7726+07 

1. 4196+00 

3. 

ACCELERATION AIR FLOW PARAMETERS USING 1 

MiRFLS theory 

XAS 

XA 

LMAX 

L 

L/LMAX 


1*6986+01 

1.6986+00 

3. 5296-01 

7.9456-02 

2.251E-01 

i. 

1*6986 +01 

3. 396E+00 

3*5296-01 

1. 3306-01 

3.7696-0 1 

2. 

1.6986+01 

5.094E+00 

3. 5296-01 

1.7356-01 

4.9166-01 

2*< 

1.6996+01 

6*7926+00 

3* 529E-Q 1 

2. 053E-01 

5.B17E-01 

3.' 

1.6986+01 

B. 4906+00 

3*5296-01 

2. 3076-01 

6.537E-01 

3. 

1.69BE+01 

1. 019E+01 

3.529E-01 

2.5136-01 

7.122E-01 

4. 

1.698E+01 

1.1696+01 

3.529E-01 

2. 6026-01 

7.600 E-0 1 

4. 

1.6986+01 

1.3586+01 

3.5296-01 

2*8216-01 

7.9946-01 

4. 

1.698E+01 

1.52 86+01 

3.5296-01 

2.9366-01 

8. 320E-01 

4.' 

1.6986+01 

1.6986 + 01 

3.529E-01 

3.032E-01 

8.591E-01 

5. 


M20 


TIM 

3946-0 5 
3106-05 
9956-05 
52BE-05 
9526-05 
295E-05 
574E-05 
8046-05 
9936-05 
1516-05 


PIO 


HI 

T00E+03 
7 58E*Q3 
7946*03 
8196+03 
8386+03 
0526+03 
0646*03 
B73E+03 
8BOE+03 
B 86 6 +03 


US10 MS 10 RATIO 

5*9166*03 1.7046*01 1*4246*01 


UT/U5 US20/UI Tf HI 
1.0366*00 1.0386+00 2.167E-05 
1.0476+00 1.0286+00 4.335E-05 
1.0536+00 1.0216+00 6.502E-05 
1.059E+00 1.0176+00 B. 6706-05 
1.061E+00 1.013E+00 I.OB4E-04 
1*0646+00 l.OHE+OQ 1.300E-04 
1.0666+00 1.0096*00 1.517E-04 
1 • 06 BE +00 1.0076 + 00 1.734E-04 
1.069E+00 1 . 006E+00 1.951E-04 
l .070E *00 t. 0056+00 2.167E-04 


Arc -Heated Helium Driver Gas 


06/19/74 

L.E.T. PROGRAM FOR EQUILIBRIUM REAL AIR 


EXPANSION TUBE PROGRAM OF MILL6R FOR REAL AIR 
ALL PHYSICAL QUANTITIES IN MKS UNITS- NASA SP-7012 


SHOCK TUBE PHASE OF PROGRAM 


MEASURED INPUTS FOR SHOCK TUBE PHASE 

RUN PI T1 USi P2 P4 

3.6006+01 6.895E+03 3.0006+02 4.3006+03 0* 0. 


T 4 XIS DIA ISA V I NU LD 

0. 4.6506+00 1.5246-01 224 


XX XXXXXXXX XXXXXXXX XXX XXX XXXXXXXX xxxxxxxxxxxxxxxxxxxxxx 


CONDITIONS BEHINO INCIDENT SHOCK - REGION 2 


XX XX XX XXX X XX XXXXXXXXX XXX XXXXXXXX XXXXXXXX xxx xxxxxxxxxxx 

P RH0 T H S/R Z GAME A U H NR6 

1.3376+06 7. 8656-01 5.U4E+03 9.4506*06 3.566E + 01 1.158E + 00 1.224E + Q0 l. 4426+03 3.062E+O3 2.6786+00 2.302E + 07 


RATIO- 2 TO 1 CONDITIONS ANO SHOCK VELOCITY 

P RHO T H A MSI USI 

1-939E+02 9.823E+00 1.705E+01 3.144E+01 4.154E+00 1. 2386+01 4.300E+03 


SHOCK TUBE FLOW PARAMETERS USING MIRELS THEORY 


LWAX L L/LMAX TfM UI 

1.210E+02 4.540E-01 3.7536-03 1.1676-04 3.B90E+03 


LT LT/LMAXT TIMT UIT TIKI 

1.018E+00 3.5236-01 3.462E-01 8,6896-05 4.0546+03 1.226E-04 
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KXJtXXOXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

EXPANSION TUBE PHASE OP PROGRAM 

XXXXXXXXXXXXXHXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXX 


INPUTS FOR EXPANSION TUBE PHASE 

U5 PS X AS OELU5 

7® 500E *03 0® U69 8E*0I 5.0006*02 


!SAV I EXP IREP NVEL l AC JAC 
2 I l 8 50 50 


5 CONDITIONS FOR FROZEN EXPANSION 

p RHO T H S/R l 

I « 1656*04 2.90OE-O2 1 . 1776*03 L®262E*06 3®566E*0I 1.1506*00 


GAttE A U * 

1.4496*00 7®527E*02 ?®500E*03 9®964E*00 4 


STATIC CONDITIONS BEHIND BON SHOCK - REGION 5S 
FROZEN EXPANSION--EQUILI BRTUM POST SHOCK 


P RHO T H S/R 

1®550E*06 3.613E-01 8«740E>03‘ 3®316E*07 4®687E*01 


l 

1.710E+00 


GAME A 

1®185E*00 2.2546*03 6 


U M 

191€*02 2.7466-01 1 


STAGNATION CONDITIONS BEHIND BOH SHOCK-REGION T5 
FROZEN EXPANSION — EQUILIBRIUM POST SHOCK 


P RHO 

1*6206*06 3.753E-01 


T H Z 

0.703E*U3 3* 3366*07 1.T13E*00 


game a QT RN • Tt MI 

1. 1066*00 2. 2626*03 l.O24E*O0 2.540E-02 2.5266-04 


STATIC CONDITIONS BEHIND BDH SHOCK - REGION 5S 
FROZEN EXPANSION — FROZEN POST SHOCK 


p RHO T H S/R 

U367E*06 1.556F-01 2.6446*04 2o035E*Q7 4®094E*Q1 


Z GAME A 

1„158E*00 1.449E+00 3.5686*03 


U M 

1.43 760*03 4.O27E-01 


STAGNATION CONDITIONS BEHIND BOH SHOCK-REGION T 5 
FROZEN EXPANSION— FROZEN POST SHOCK 

P RHO T H l 

1. 534E*06 1. 6856-01 2.740E*04 2-9396*07 1.1586*00 


game a QT rn T1MI 

1.4 49E fr 0 0 3 .. 6 3 2 E *03 B.770E*07 2.540E-0Z 2.526E-04 


\£DC REAL-AIR TAPE USEO FOR UNSTEADY EXP ANS ION-IEXP** L 


5 CONDITIONS FOR EQUILIBRIUM EXPANSION 

P RHO T H S/R * 

4*1776+04 4® 31 4E-02 3® 1846*03 4.9486*06 3.5666*01 i.O59E*00 


GAME A U 

1* 1576*00 l . 058 E *0 3 7.500E+03 


7.087E+00 


STATIC CONDITIONS BEHIND BOH SHOCK - REGION 5S 
EQUILIBRIUM EK PANS TOM — 6QUIL I BRl UM POST SHOCK 

p mo T H s/B i game a u ft 

2.269E+06 5.2AAE-01 B.905ED-03 3. 2686^07 A.611E»01 l.6«E*00 1.187E*00 2.2668*03 6. 176E+02 2.726E-01 


STAGNATION CONDITIONS BEHIND BOM SHOCK-REGION T5 
EQUILIBRIUM EXPANSION — EQUILIBRIUM POST SHOCK 

p RHO T H Z 

2« 371E*06 5® 444E-0 i 8®948E*03 3®30BE*07 L.696E*00 


GAME A QT RN TIMI 

I® 187E*0O 2® 274 E * 03 1.2286*08 2.540E-0 2 3.719E-04 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

FOLLOWING EQUILIBRIUM CONDITIONS INCLUDE FLOW ATTN 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXJtXXXXXXXXXX 


5 CONDITIONS FOR EQUILIBRIUM EXPANSION 


p RHO T 

4o 17 7E *04 4*3146-02 3.184E*03 


H S/R 

4.9406*06 3.5666*01 


Z GAME A U M 

lc058E*00 1-1576*00 U058E*03 6.5006*03 6.142E*00 


STATIC CONDITIONS BEHIND BOW SHOCK - REGION 5$ 
EQUILIBRIUM EXPANSION — EQUILIBRIUM POST SHOCK 


NRE 

BB2E*06 


RAT! 3 
.2126*01 


RATIO 

-2Z0E*O0 


NRE 

®597E*06 


RATIO 


. 21 6 E* 0 I 


NRF 

3®ll7t*06 
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P RWO T H S/R 

1.699E+06 4.740E-OI 8, 107E+03 2.590E+07 4.375E+01 


Z GAME A u M 

1.539E+00 1-1676*00 2.0446+03 5.903E+02 2.880E-O1 


STAGNATION CONDITIONS BEHIND BOW SHOCK-REGION T5 
EQUILIBRIUM EX PANS ION— E QUIL 1 6ft IUM POST SHOCK 


P RHO T H i 

l • 783E *06 4.9506-01 8.L46E+03 2.608E+07 1.54LE+00 


GAME A QT RN TlMl 

l.UBE+OO 2.051E+03 8.379E+07 2.540E-02 5.080E-04 


ACCELERATION AIR CONDITIONS (REGION 20) AND P10 

P20 RH020 T20 H20 220 M20 P10 USiO MS 1 0 

4. 17TE+04 1.1566-02 7.1256*03 3.206E + Q7 1.7686*00 3.668E*00 6.0GQE+01 7.984E+03 2.300E+01 


RATIO 
1. 65 8E*0i 


ACCELERATION AIR FLOW PARAMETERS USING MIRELS THEORY 


XAS 

XA 

LM AX 

L 

I/IMAX 

1.698E+01 

1.698E+00 

9.757E-01 

B. 203E-02 

6.4096-02 

l. 6986+01 

3. 396E + 00 

9.T57E-01 

1.492E-01 

1.529E-01 

1. 699E+01 

5. 0946 + 00 

9. 757E-01 

2* 078E-0 1 

2.129E-01 

L.693E+01 

6.792E+00 

9.7576-01 

2. 60QE-01 

2.665E-01 

1.690E+O1 

8. 490E+00 

9.757E-01 

3.072E-01 

3.14BE-0L 

1.698E+01 

1.0196*01 

9. 7576-01 

3.501E-01 

3.5B8E-01 

1.698E+01 

U189E + 01 

9. 757E-01 

3. B95E-01 

3.9926-01 

1.6986+01 

t. 3506+01 

9.757E-01 

4. 257E-01 

4.363E-01 

1.698E +01 

1. 5286+01 

9* T57E-0 1 

4. 59 16—0 1 

4.705E-01 

1.6906+01 

1. 6986*01 

9.757E-01 

4. 9016-01 

5.023E-01 


TIM UI UI/U5 US20/UI TIMI 

1.073E-05 7.644E*03 1.0L9E*00 1.045E + 00 W365E-05 
1.939E-05 7. 6 93 E + 03 1.026E+00 1.038E+00 2.731E-05 
2-* 689E-0 5 7* 7 2 7E *03 1.030E+00 1.033E+00 4.096E-05 
3.353E-Q5 7.753E+C3 1.0346*00 1.0306*00 5.461E-05 
3.951E-Q5 7. 7 75 E + 03 1.037E+00 1.0276*00 6.827E-05 
4.493E-05 7.793E*03 1.0396*00 1.0256*00 8.1926-05 
4.900E-O5 7. 809E+03 1.041E+00 1.022E+OO 9.55T6-05 
5.442E-05 7 . 022E+Q3 t.043E*00 U021E*00 1.092E-04 
5*8606-05 7.0356*03 1.045E+00 1.019E+00 1.229E-04 
6.247E-05 7.046E+O3 1.046E+00 1.018E+00 I.365E-04 


XXXXXX XXXX XXXX XXXXXX XX XX XXXX XX XX XX XXXXXX XXXXXX XX XXXXXX 


CONDITIONS BEHIND STANDING SHOCK AT SECONDARY OIAPH 


XXXXXX XX XX XX XXX XXX XXXXXXXXXX xxxx XX xxxxxxxxxxxxxxxxxxxx 


P RHQ 

1.062E +0 7 3. 761 E+00 7 


T H 

707E+03 I • 658E+07 3 


S/R I 

709E+01 l. 276E +00 


GAME A 

1. 1 78E*0O l . 8 24E *0 3 8 


U M 

073E*O2 4.42TE-01 


XX XX XXXXXX XXXXX XX XXXX XXX XXXX XX XX XX XXXXXX XXX XX XXX XXXXXX 
EXPANSION TUBE PHASE OF PROGRAM 

XXXXXXXXXX XX XX XXX XXXXXXXX XXX xxxxxxxxxxxxxxxxxxxxxxxxxx 


INPUTS FOR EXPANSION TUBE PHASE 


U5 P5 

7.5006*03 0. 


XAS 0ELU5 

1 . 698E*01 5.000E+02 


ISAV I6XP IREP NVEL I AC JAC 
2 1 l 8 50 50 


5 CONDITIONS FOR FROZEN EXPANSION 


P RWO T H S/R 

7. 18 IE +02 5. 8216-03 3.3S8E+02 3.704E+O5 3.709E+0I 


Z GAME A u M 

1 ♦ 27 6E *00 I.484E + 00 *^278E+02 7. 5006+03 1.753E+01 2 


STATIC CONDITIONS BEHIND BOW SHOCK - REGION 5S 
FROZEN EXPANSION — EQUILIBRIUM POST SHOCK 


P RHO T H S/R 

3.006E+05 6.913E-02 8.327E+03 3.623E+07 5.100E+01 


l GAME A IJ M 

1. 0196+00 1.176E+00 2.261E+03 6.3I0E+O2 2.79IE-0I 1 


STAGNATION CONOITTONS BEHIND BOW SHOCK-REGION T5 
FROZEN EXPANSION — EQUILIBRIUM POST SHOCK 


P RHO 

3. 146E+05 7.105E-O2 8 


T H 

371E+03 3. 642E+07 


Z GAME 

1. 822E+00 I.176E+00 2 


A QT 

269E+03 4.933E+07 2, 


RN TIMI 

5406-02 1.3706-04 


STATIC CONDITIONS BEHIND BOW SHOCK - REGION 5S 
FROZEN EXPANSION — FROZEN POST SHOCK 


P 

2.63 5E+05 


RHO T H 

2.949E-02 2.439E+04 2.741E+07 


S/R 

4.432E+0I 


Z GAME A U H 

I.276E+00 1.484E+00 3. 6416+03 1.4606+03 4.066E-01 5 


cIi»?5 TT ° N CONDIT IONS BEHIND BOW SHOCK-REGION T5 
FROZEN EXPANSION — FROZEN POST SHOCK 


PATH 
1 • l OOE+Ol 


NRE 


NRE 

« l 63E»06 


RATIO 

.1886+01 


RATIO 

♦066E+03 
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p RHO T H Z GAME A QT *N TIHI 

2.9726*05 3o I98E-02 2.5376*04 2.8506*07 1.2766*00 1.4846*00 3.713E*C3 3*7436*07 2.5406-02 1.3706-04 

AE DC REAL-AIR TARE USED FOR UNSTEADY EXP ANS IDN-I EXP*l 

NO SOLUTION ON TAPE FOR THE CONDITIONS 

S/«* 37.090681 

7141** 2o 542081 036*00 


EVALUATE 

7(61 


PERFECT AIR RELATIONS USED FOR NUMERICAL INTEGRATION 


5 CONDITIONS FOR EQUILIBRIUM EXPANSION 

P RHO T H S/R 

4.7306*04 4.1466-02 3.5596*03 6. 461E*06 3.7096*01 


STATIC CONDITIONS BEHIND BOW SHOCK - REGION 5S 
EQUILIBRIUM EX PANS ION — 6QU IL IBR I UN POST SHOCK 

P RHO T H S/R 

2.1816*06 4. 8666-01 9.044E*03 3-4386*07 4.675E+01 


STAGNATION CONDITIONS BEHIND BOW SHOCK-REGION T5 
EQUILIBRIUM EXPANSION — EQUILIBRIUM POST SHOCK 

P RHO T Hi 

2.282E*06 5.056E-01 9.090E*03 3.4596*07 U730E + 00 


l GAME A U M 

1.1 15E*00 1.1716*00 1.1556*03 7.5006*03 6.492E*00 3 


Z GAME A U M 

1.7276*00 U1B9E + 00 2.3096*03 6.3906*02 2.768E-01 l 


GAME A QT RN TIMI 

l. 1906+00 2.31 BE +03 1.2616+08 2.5406-02 4.122E-04 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXX 

FOLLOWING EQUILIBRIUM CONDITIONS INCLUDE FLOW ATTN 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


5 CONDITIONS FOR EQUILIBRIUM EXPANSION 

P RHO T H S/R 

4.73OE+04 4. L46E-02 3.559E+03 6. 4616+06 3.7096*01 


1 


l GAME A U 

1 15E+00 1.1716+00 1-1556*03 6.500E+03 


M 

5.627E+00 


STATIC CONDITIONS BEHIND BOW SHOCK - REGION 5S 
EQUILIBRIUM EXPANSION-EQUILIBRIUM POST SHOCK 


1 


P 

634E+06 


RHO T H S/R 

4.3966-01 8.222E+03 2.740E+07 4.4456+01 


l GAME A U M 

1.575E+00 1.1TLE+00 2.086E+03 6.1256*02 2.9366-01 


STAGNATION CONDITIONS BEHIND BOW SHOCK-REGION T5 
EQUILIBRIUM EXPANSION — EQUILIBRIUM POST SHOCK 

P RHO T H l 

1, 7186+0-6 4.591E-01 8.2636*03 2.7596*07 1.5786 + 00 


GAME A QT RN TIMI 

1.1726+00 2.0946*03 B.708E+07 2.54QE-02 5.6466-04 


ACCELERATION air CONDITIONS (REGION 20) 
P20 RH020 T 20 H20 

4. 730E+04 1.301E-02 7. 1706 + 03 3.2086+07 


AND P10 
720 

1.7666+00 


M20 P10 US10 MS 10 

3.6576*00 6.792 E*Ol t.9876+03 2.300E+01 


RATIO 

1.650E+01 


ACCELERATION AIR FLOW PARAMETERS USING MIRELS THEORY 


X AS 

1.690E+OI 
1.698E+01 
i . 695 E+G 1 
l .69BE+01 
1 .6986+01 
1. 698E *01 
1. 69 BE + 0 l 
1.69BE+01 
1.69BE +0 l 
L « 698 E +01 


X A 

1 . 6986+00 
3.3966+00 
5. 094E + 00 
6.7926+00 
8.4906 + 00 
1.0196+01 
1. 1696*01 
l. 358E+0 l 
1. 5286*01 
l. 698E+01 


LMAX 

1. 1046 +00 
1. 1046+00 
1. 1046*00 
1.104E+00 
1. 1046+00 
1. 1046+00 
1. 1046*00 
t. L04E+00 
1. 104E+00 
U I04E+00 


L 

8. 3536-02 
1. 5286-01 
2. 130E-O1 
2 . 6866-01 
3. 184E-01 
3.6416-01 
4. 062E-0 1 
4. 452E-01 
4.8156-01 
5. 152E-01 


L/LMAX 
7.564E-02 
l. 3846-01 
1.936E-01 
2. 4326-01 
2. B83E-01 
3.2976-01 
3.678E-01 
4.0326-01 
4.3606-0 1 
4.6666-01 


TIM Ul UI/U5 US20/UI TIMI 

1.094E-05 7.6376+03 1. 0166+00 1.0466+00 1.372E-05 
1.98BE-05 7.685E+03 1.0256+00 1.0396+00 2.7446-05 
2.7706 -0 5 7.7186*03 l. 0296+00 L.035E + 00 4. 1176-05 
3. 468E-05 7. 743E+03 1.032E+00 L.031E+00 5.489E-05 
4.10 L 6-0 5 7-765E+03 1.0356+00 1. 0296 + 00 8.8616-05 
4.678E-05 7.783E+03 1.038E+00 1.0266+00 8. 2336-05 
5.2096-05 7.793E+03 1.0406*00 1.0246*00 9.605E-05 
5. 6996—05 7.812E+03 1-042E+00 1.0226*00 1.09BE-04 
6-l 53£_05 7.B24E+03 1.043E+00 1.021E+00 1.2356-04 
6.5766-05 7. 8356+03 1.0456+00 L.019E+00 1.3726-04 


KXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


NR6 

.1626+06 


iAtn 
. 174E+01 


NRE 

.7406+06 


RAT! 3 
.0606+01 
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CONDITIONS BEHIND REFLECTED SHOCK AT SECONDARY DIAPH 


xxxxxx xxxxxx xxxxxx xxxxxx xxxxxxxx xxxxxxxx xxxxxxxx xxxxxx 


P RHO T H S/R 

1.541E+07 4.721E*00 8.4B0E+03 I.989E+07 3.0O6E+O1 


l GAME a (J 

1-3416*00 1.176E+C0 1-9596+03 0- 


0. 


M 


xxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

EXPANSION TUBE PHASE OF PROGRAM 

XX xxxxxxxxxxxxxxxxxxxxxx XXXXXXXX XX XXX XXX xxxxxxxx xxxxxx 


INPUTS FOR EXPANSION TUBE PHASE 


U5 P5 

T.500E+03 0. 


X A S DELU5 

l « 69 BE *0 1 5- QOOE+D2 


ISAV I EXP IREP NVEL I AC JAC 
2 l 1 B 50 50 


5 CONDITIONS FOR FROZEN EXPANSION 


P RHO T H S/r 

I * 705E *02 2.444E-03 l. 0979*02 2.1B5E+05 3.806E+01 


£ GAME A u ^ 

1.341E*00 I.5O2E+0O 3.3l2E*02 7.5009*03 2.264E+0L 


STATIC CONDITIONS BEHIND BOW SHOCK - REGION 5S 
FROZEN EXPANSION— EQUILIBRIUM POST SHOCK 


P RHO T H S/R 

l » 250E+O5 2-829E-OZ 8.234E+03 3.026E+O7 5.344E*0I 


l GAM6 A 

U001E+OO l. 1 64E*0O 2.275E*03 


U M 

6.A77E+02 2* 047E-O1 


STAGNATION CONDITIONS BEHIND BOW SHOCK-REGION 
FROZEN EXPANSION— EQUILIBRIUM POST SHOCK 


T5 


P 

1.3I0E+O5 


RHO T H 

2.943E-02 B.2B2E+03 3.647E+07 


Z 

1 « 0849*00 


GAME A QT RV 

U165E+00 2.204E+O3 3.374E*07 2. 540E-O2 


TIMI 

1.046E-04 


STATIC CONDITIONS BEHIND BOW SHOCK - REGION 5$ 
FROZEN EXPANSION— FROZEN POST SHOCK 

P RHO T H S/R 

I.096E+O5 1.2O0E-Q2 2. 36 IE*04 2# 71 99+07 4.607E+01 


2 game auk 

1.341E+00 U5O2E+00 3.69&E+03 1.517E+03 4.1059-01 


STAGNATION CONDITIONS BEHIND BOW SHOCK-REGION T5 
FROZEN EXPANSION— FROZEN POST SHOCK 


P 

U243E+05 


RHO T H Z 

1.312E-G2 2.461E+04 2.834E*07 1.3419*00 


GAME a QT RN TIMI 

I. 5029+00 3. T73E+03 2.4079+07 2. 540E-02 1.046E-04 


AEOC REAL-AIR TAPE USED FDR UNSTEADY E XP ANS ION-1 EX P= 1 


NO SOLUTION ON TAPE FOR THE CONDITIONS 

S/R= 30.059235 
Z<4)= 2- 5420 61 03E + 00 


EVALUATE 

ZI6I 


PERFECT AIR RELATIONS USEO FOP NUMERICAL INTEGRATION 


5 CONDITIONS FOR EQUILIBRIUM EXPANSION 


S. 5766+04 4.2726-02 3.9196+03 7.6986+06 3.8066+01 1.159E+00 1.205E+00 1.2546+03 7.5006+03 5.981E+00 

CONDITIONS BEHIND BOW SHOCK - REGION 5S 
EQUILIBRIUM EX P ANS ION— E QUIL t BR I UM POST SHOCK 

P RHO T H S/R 

2.2476+06 4.8596-01 9.1966*03 3. 5616+07 4.7166 + 01 1.7526 + 00 l.?«f+ 00 2^486+03 6.5916+02 2.SoTE-01 


STAGNATION CONDITIONS 
EQUILIBRIUM EXPANSION- 


BEHIND BOW SHOCK-REGION T5 
-EQUILIBRIUM POST SHOCK 


NRF 

0 . 


NRE 

1.440E+O6 


RATIO 
1 • I 59E+01 


RATIO 

.9449+00 


NRE 

•OllE+06 


RATIO 

.L30E+O1 
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P RHO T H 7 GAME A QT RN TIFU 

2. 355E + 06 5.055E-OL 9.246E+03 3. 583E+07 1.T55E+00 L.192E+00 2.357E+03 1.327E+08 2.540E-02 4.545E-04 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
F QLL OH TNG EQUILIBRIUM CONDITIONS 1NCLUOE FLOW ATTN 
XXXXXXXX XX XX XXX XX XXXX XXX xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


5 CONDITIONS FOR EQUILIBRIUM EXPANSION 

P RHO T H S/R Z GAME A U H MRE 

5* 576E404 4.2726-02 3.919E+03 7. 5986*06 3-806E+QI 1-159E+00 1.Z05E+00 1.254E+03 6. 5006+03 5.184E+00 2.609E+06 


STATIC CONDITIONS BEHIND 60W SHOCK - REGION 5S 
EQUILIBRIUM EXPANSION — EQUILIBRIUM POST SHOCK 


P RHO T H S/R l GAME A U M RATIO 

1.6856+06 *. 307E-O L 0.3*76*03 2- 8626*07 4.491E+0L 1.6036*00 U174E+00 2.12*6*03 6.3296*02 2.980E-01 L. 0276*01 


STAGNATION CONDITIONS BEHIND BOW SHOCK-REGION T5 
EQUILIBRIUM EXPANSION-EQUILIBRIUM POST SHOCK 

P RHO T H l GAME A QT RN TlNl 

1.7756*06 4.5B7E-01 0.3916*03 2. B83E*07 1.6076*00 1.175E+00 2.1326*03 9.2516+07 2-540E-02 6.2*46-04 


ACCELERATION AIR CONDITIONS {REGION 201 AND P10 

P20 RH020 T20 H20 Z20 M20 P10 USIO MS10 RATtO 

5.5766*04 l. 5236-02 7.2316+03 3.210E+07 1.7636+00 3.642E+00 8.00*6*01 7.9906+03 2.3016+01 L.639E+0I 


ACCELERATION AIR FLOW PARAMETERS USING MIRELS THEORY 

XAS XA LM AX L L/LMAX TIM UI UI/U5 USZO/UT TtMl 

1.698E+01 1. 69B6+00 1.301E+00 8.5466-02 6.568E-02 1.120E-05 7.6296+03 1.0176+00 1.0*76+00 1.3B1E-05 

1.698E+01 3.3966 + 00 U301E + 00 1. 574E-01 U2 106-0 1 2. 0516-05 7.67*6 + 03 1.QZ3E+00 1.0*16+00 2.763E-05 

1 o 698E +0 1 5.09*6+00 1.301E + 00 2. 2156-01 U702E-01 2.S7*E-05 7.7066*03 1.027E + 00 1.0376*00 4.1*46-05 

L. 6986+01 6.792E+00 I.301E+00 2.796E-01 2.1496-01 3.61TE-05 7.7316+03 1.0316+00 1.034E+00 5.5256-05 

1.6986+01 8.4906+00 1.301E+Q0 3. 3296-01 2.5596-01 4.295E-05 7. 7516+03 1.033E+00 1*0316+00 6.907E-05 

1.6986+01 1.019E+01 1.301E+00 3.8226-01 2.937E-01 4.9206-05 7.769E+03 1. 0366+00 1.0296+00 8.208E-O5 

L.69BE+01 1.1896*01 1.3016+00 4.280E-01 3.269E-01 5.4986-05 7.7B46+03 1.0386+00 1.0266+00 9.669E-05 

1.6906+01 1.358E+01 1.301E+00 4.7076-01 3.6176-01 6.036E-05 7.7906+03 1.0406+00 1. O256+0O 1.105E-0* 

1.6986+01 1.528E+01 1.301E+00 5.1076-01 3.925E-01 6.5396-05 7.8106+03 1.0416+00 1.023E+OO 1.Z43E-04 

1.698E+01 1.690E+O1 1.301E+00 5.482E-01 4.2136-Ot 7.009E-05 7o82iE+03 1.0*36+00 1-022E+00 1.3BIE-04 
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PROGRAM LIMITATIONS AND UNCERTAINTIES 

Limitations on the present program are those restrictions on the source of equi- 
librium, real -air, thermodynamic properties. The temperature range of both the AEDC 
real-air tape (ref. 9) and AEDC real-air curve-fit expressions (ref. II) is 100 K to 
15 000 K; however, the pressure range of the tape is greater than that of the curve-fit 
expressions for given values of entropy. Imperfect air (intermolecular force) effects are 
neglected in the curve-fit expressions; thus, discretion should be exercised in using these 
expressions at pressures greater than 10 MN/m 2 or so. If the lower temperature limit 
of the AEDC real-air tape is exceeded during the unsteady or steady flow expansion com- 
putation, perfect air relations are used to determine thermodynamic properties at these 
low temperatures. For this case, a statement is printed in the printout acknowledging 
that perfect air relations were used; thereby, the user is cautioned that the temperature- 
pressure range may be such that air condensation effects (see, for example, ref. 22) are 
significant and should be considered. 

Primary sources of uncertainties are iteration convergence criteria, source of 
real -air thermodynamic properties, and computational procedure. To reduce uncertain- 
ties arising from usage of various iteration convergence tolerances, tolerances were con- 
stant for all iterations in the present study, being 0.1 percent. Real-air thermodynamic 
properties as obtained from the AEDC tape are believed to be representative of the state 
of the art in calculation of air properties. However, some differences exist between the 
AEDC tape and the AEDC curve-fit expressions. For a pressure range of 10 to 
1000 kN/m 2 and a temperature range of 2000 K to 15 000 K, the maximum percentage 
errors in thermodynamic properties obtained from the curve -fit expressions, as com- 
pared with those from the AEDC tape, are (ref. 11): 


a, percent 2.78 

h, percent 1 96 

T, percent 2.24 

Z*, percent 0.75 

y E , percent *5.00 

p, percent 2.52 


Because of the wide range of possible shock tube and expansion tube flow conditions 
and the large number of methods (combinations of inputs) contained within the present 
program for computing these flow conditions, a comprehensive study of program uncer- 
tainties is not feasible. Instead, computations for specific cases, representative of tests 
performed in the Langley expansion tube, are considered. Values of flow quantities in 
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regions (?) and (2s) , obtained for various values of input U g ^ (LB = 0; see appendix A) 

and using the AEDC real-air tape, were compared with those values calculated by using 

the program of reference 5. This comparison showed excellent agreement, as expected. 

For the case where p 2 is an input, the values of P 2 were obtained from the case 

where U_ , is an input. This cross-check showed exact agreement between the results. 
s,i 

Flow quantities in region (2) where p^ and T^ are inputs were also compared 
with results from reference 5. For these comparisons, p^ was equal to 34.5 MN/m^, 
Tjj was equal to 300 K and to 600 K, and p^ was varied from 0.07 to 689.5 kN/nA 
Both helium and hydrogen driver gases are considered. For the present program, the 
AEDC real-air curve-fit expressions (ISAV » 2; see appendix A) are used and 20 values 
of U g j are used in generating the ^p 2 , Ug) curves. A 10-species ^e", Ar, N, N + , Ng, 

O, 0 + , Og, NO, and NO + ) air model is employed in reference 5, the air composition by 
volume being 78.08 percent Ng, 20.95 percent Og, and 0.97 percent Ar. This composition 
yields an undissociated molecular weight W u of 28.97 in agreement with references 9 
and 11. As expected, thermodynamic properties in region (4) were in perfect agreement 
between the two programs for both driver gases. The maximum uncertainties observed 
between flow quantities in region ^2) and U g as determined from the present program 
and reference 5, are 


pg, percent 0.3 

pg, percent 2.3 

Tg, percent 2.6 

hg, percent 0.5 

SgW u /R, percent 0.2 

a 2 , percent 1.6 


Ug, percent 0.2 

U 1s percent 0.5 

S,i 


The ratios of flow conditions in region (?) to conditions in region (T) presented in 
figure 18 are shown in figure 22 as a function of U 1 . The results of figure 18 were 
calculated by use of the AEDC tape, whereas the results of figure 22 were calculated by 
use of the AEDC curve-fit expressions. Comparison of figures 18 and 22 shows Pg/p^, 
hg/hi (which are relatively insensitive to variation in p^), and SgW u ^R are in good 
agreement for the two sources of real-air thermodynamic properties. However, agree- 
ment for Pg/Pj an< ^ T 2 /T 1 is poorer, differences up to approximately 10 percent 
occurring for the range of U 1 examined. This comparison implies that some shock 

S 3 i 


tube parameters in regions 



calculated by using the curve -fit expressions 
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may also contain relatively large uncertainties. Thus, the user of the present program 
should exercise discretion in using these expressions to calculate shock tube flow 
quantities. 

Expansion tube flow quantities in regions (5 ), (5s) , and are compared for the 
three methods of the present program and with the results of reference 5. The three 
methods of the present program, in terms of inputs ISAV and IEXP (see appendix A), are 


Method . 

ISAV 

IEXP 

(1) 

1 

1 

(2) 

2 

1 

(3) 

2 

2 


where ISAV = 1 denotes that the AEDC real-air tape is used to determine flow quantities 
in the expansion tube cycle and ISAV = 2 denotes that the AEDC real-air curve-fit expres- 
sions are used. For IEXP = 1, the required table of h as a function of a - * for the 
unsteady expansion calculation is generated from the AEDC tape. This table is generated 
by using subroutine SLOW with inputs s a W u /r and h, where h is varied from a maxi- 
mum value of h^. to a minimum value chosen to be 0.1 Mj/kg. This range of h is 
divided into increments (number of increments is input JAC with maximum of 300) and the 
numerical integration performed beginning with the upper limit h^. The integration by 
Simpson’s Rule is terminated when a value of h is obtained that equates to AU of equa- 
tion (21). For IEXP = 2, this table is generated by using the curve-fit expressions. The 
pressure is varied from a maximum value of p A to a minimum value of either ^ 
or 0.1 N/m 2 , whichever is largest. These values of p are inputs to subroutine SAVE, 
in conjunction with s A W u /R, and the corresponding values of h and a - l are tabulated. 
The number of pressure increments used in generating this table is an input (maximum 
of 100). Method (1) (ISAV = IEXP = 1) is expected to be the most accurate method but 
requires more computer time primarily because of the time required for tape manipula- 
tion. Method (3) (ISAV = IEXP = 2) should contain the greatest uncertainty but has the 
smallest computer time. Method (2) represents a compromise between methods (1) 
and (3) and uses the AEDC tape only for the unsteady expansion calculations. 

Flow quantities in regions (5), (5s) , and (t?) were calculated with these three 
methods for the following basic inputs: 

p 1 = 1.724 kN/m 2 

T t = 300 K 
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U s ^ = 2.865 km/sec 
Ug = 4, 5, 6, and 7 km/sec 

No shock reflection at the secondary diaphragm is considered. All quantities are based 
on the assumption of thermochemical-equilibrium flow throughout the expansion tube flow 
cycle. The results of methods (2) and (3) are compared with the results of method (1) in 
the following table. Also illustrated in this table is a comparison of method (1) with 
results from the program of reference 5 for a 10-species air model and with the same 
inputs as method (1). For methods (1) and (2), input JAC is equal to 300, and for method (3), 
input IAC is equal to 50. Fifty pressure increments are also used in the program of ref- 
erence 5. Agreement between method (1) and the results from the program of reference 5 
for all flow quantities of table I is good (generally within 0.5 percent). The results of 

TABLE I.- PERCENT DIFFERENCE BETWEEN FLOW QUANTITIES IN REGIONS ©, 


AND (t?) AS CALCULATED BY METHODS (1), (2), AND (3) AND REFERENCE 5 


Flow 

quantity 

Percent difference between 
methods (11 and (2) for 
Ur, km/sec, of - 

Percent difference between 
methods (1) and (3) for 
U 5 , km/sec, of - 

Percent differ 
method (1) an< 
for Ug, km 

ence be 
i ref ere 
i/sec, o 

tween 
nee 5 
f - 


4 

5 

6 

7 

4 

5 

6 

7 

4 

5 

6 

7 

P5 

5.47 

5.48 

5.50 

5,54 

1.67 

7.85 

7.47 

8.70 

0.09 

0.15 

0.14 

0.50 

p 5 

5.43 

5.43 

5.48 

5.49 

3.98 

7.28 

6.45 

7.24 

.18 

.28 

.22 

.51 

T 5 

.04 

.00 

.08 

.03 

2.77 

.45 

1.01 

1.51 

.04 

,06 

.00 

.05 

h 5 

.03 

,05 

.00 

,03 

.49 

.30 

.71 

1.11 

.00 

.00 

.08 

.06 

Z 5 

.00 

.00 

.00 

.00 

.30 

.00 

.00 

.00 

.00 

.00 

.00 

.00 

r E,5 

.00 

.00 

.00 

.00 

3.67 

6.88 

.68 

.65 

.00 

.00 

.00 

.07 

a 5 

.05 

,01 

.01 

.00 

.60 

3.26 

.19 

,45 

.01 

.01 

.04 

.02 

M 5 

.05 

.02 

.01 

.00 

.59 

3.26 

.19 

.43 

.02 

.02 

.04 

.00 

N Re,5 

5.44 

5.46 

5.47 

5.44 

5.87 

7.02 

5.88 

6.26 

.75 

.38 

.72 

.00 

P5S 

5.32 

5.40 

5.46 

5.47 

3.79 

7.22 

4.28 

7.19 

.14 

.20 

.21 

.51 

p 5s 

T 5s 

4.63 

4.61 

5.25 

5.18 

1.96 

6,46 

.62 

6.83 

.11 

.18 

.25 

.57 

.87 

.08 

.53 

.93 

.74 

,93 

.59 

1,03 

.13 

.07 

.05 

.05 

h 5s 

.00 

.00 

.00 

.00 

.19 

.07 

.05 

.04 ; 

.00 

.00 

.00 

.00 

s 5s W u / R 

z 5s 

.05 

.12 

.29 

.48 

.79 

.17 

.31 

.46 

.00 

.05 

.04 

.02 

.25 

.15 

.42 

.75 

.25 

.15 

.42 

.75 

.00 

.00 

.00 

.00 

r E,5s 

.91 

.17 

.26 

,00 

.99 

.17 

.26 

.00 

.08 

.09 

.00 

.09 

a 5s 

.86 

.31 

.23 

.16 

.80 

.37 

.29 

.22 

.00 

.00 

.00 

.05 

p t,5 

5.37 

5.42 

5.65 

5.49 

3.85 

7.31 

6.54 

7.24 

.15 

.23 

.21 

.50 

p t,5 

4.55 

4.58 

5.27 

5.18 

3.13 

6.43 

6.20 

6.85 

.14 

126 

.27 

.56 

T t,5 



.99 

.86 

.54 

.93 

.84 

.92 

.60 

1.02 

.13 

.06 

.03 

.05 

.00 

,00 

.00 

.00 

.09 

.07 

.05 

.04 

.00 

.00 

.00 

.00 
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method ( 3 ) are within 8 percent or so of those of method ( 1 ) for the range of Ug 
examined. (It should be noted that for a value of U 5 of 7 km/sec, the corresponding 
value of P 5 exceeded the range curve fitted in ref. 11.) Differences between method (1) 
and method (2) or (3) in table I are believed to be representative of the present program 
as applied to a wide range of practical expansion tube flow conditions. 


Uncertainty in flow quantities is expected to be a function of the number of incre- 
ments used for the numerical integration required for the unsteady expansion. Hence, 
inputs JAC and IAC for methods (2) and (3), respectively, were varied to examine uncer- 
tainties resulting from these inputs. Percentage differences for flow quantities in 
region (5) are shown for method (3) with various IAC in the following table. These dif- 
ferences were obtained by comparing results for given values of IAC to results obtained 
with the maximum value of 100. The inputs p^, T^, and U g ^ are those considered 
in the previous comparison and the input Ug is 7 km/sec; thereby, the maximum differ- 
ence between h^ and hg or p^ and pg for this case is provided. To minimize 
computer time without sacrificing accuracy in calculated flow quantities, a value of IAC 
equal to 50 for method (3) is recommended for most cases. 


Flow 

quantity 

IAC of - 

— 

10 

20 

30 

50 

P5 

5.74 

0.82 

0.63 

0.00 

P5 

4.23 

.62 

.45 

,00 

T 5 

1.58 

.22 

.17 

.00 

h 5 

1.65 

.23 

.18 

.00 

Z 5 

.00 

.00 

.00 

.00 

y E,5 

.07 

.00 : 

.00 

.00 

a 5 

.77 

.10 

.08 

.00 

M 5 

.07 

.14 

.07 

0 

0 

N Re,5 

3.29 

.39 

.39 

.00 


A similar comparison for method (2) was performed, where the maximum value of 
input JAC was 300. This comparison showed the maximum difference between flow quan- 
tities in region (IT) for JAC equal to 25 and the maximum of 300 was less than 0.25 percent 
for Ug equal to 7 km/sec. However, extending the velocity to 8 km/sec yielded differ- 
ences up to 5.5 percent. Increasing input JAC from 25 to 50 diminished this difference to 
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less than 0.2 percent. (It should be noted that for U 5 equal to 8 km/sec, the tempera- 
ture Tg was 250 K; hence, these conditions did not exceed the limits of the AEDC real- 
air tape.) Therefore, for methods (1) and (2), a value of JAC equal to 50 is recommended 
for most cases. More severe expansions from region (A) to region ( 5 ) than for this 
sample case may require larger values of JAC and IAC than recommended herein. 

For the case where p 5 is an input (LF = 2; see appendix A), the values of p 5 
calculated for methods (1) and (3) are, in turn, used as inputs. (The values from 
method (1) were used for LF = 2 and ISAV = IEXP = 1, and the values from method (3) 
were used for LF = 2 and ISAV = IEXP = 2.) This cross-check shows excellent agree- 
ment between the results. 

The present program was run at conditions for which air behaves, approximately, 
as an ideal gas in all phases of the expansion tube cycle. Inputs for this case are 


Pj = 6.895 kN/m 2 

T x = 300 K 

U_ * = 500 m/sec 

s,l 

Ug = 700, 900, and 1100 m/sec 


and the AEDC tape was used for the unsteady expansion. The purpose of this case was to 
compare flow quantities for a frozen expansion with those for a thermochemical equilib- 
rium expansion. Flow quantities in region (j5 ) , (5s) , and ^ 5 ) were observed to be within 
2 percent between the frozen and equilibrium cases. Comparison of frozen flow quantities 
between the present program and the program of reference 5 showed agreement to worsen 
with increasing level of dissociation in region . Since the composition of the air in 
region (X) is calculated in reference 5, the corresponding frozen flow calculations of ref- 
erence 5 are believed to be more accurate than those of the present program. 


Flow quantities calculated in region (6) of the expansion tunnel were verified by 
manual calculations and usage of reference 9. The same subroutine (SNS; see appendix A) 


regions (5s) and f t5 


was used to obtain conditions in regions (6s) and (t6) as was used to obtain conditions in 
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LANGLEY LIBRARY SUBROUTINE ITR1 


Language : FORTRAN 

Purpose: To solve the single equation of the form x = f(x) for one real root by the 
Newton-Raphson iteration method. 


Use : CALL ITR1 (X, DELTX, FOFX, El, E2, MAXI, ICODE) 

X An initial guess supplied by the user. On a normal return to the calling 

program from ITRl, X contains the root. 

DELTX An increment supplied by the user so that f( x + DELTX) - f(x) a 

DELTX 

reasonable approximation to the derivative of f(x). 

FOFX A function subprogram to evaluate f(x). 

El Relative error criterion. 

E2 Absolute error criterion. 


MAXI A maximum iteration count supplied by the user. 


ICODE 


An integer supplied by ITRl as an error code. This code should be 
tested by the user on return to the calling program. 


ICODE = 0 
ICODE = 1 
ICODE = 2 


Normal return. 

Maximum iteration exceeded. 
Derivative » 0. 


Restrictions : A function subprogram with a single argument x must be written by the 
user to evaluate f(x). The name given to the FOFX subprogram must appear in an 
EXTERNAL statement in the calling program. 

Method : The Newton-Raphson iteration technique (ref . (a) of this subroutine) is used 
where 


x n+l = % + (* " <*> *( x n) 


f(x n ) - f(x n _i) 
x n “ x n~l 
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Accuracy: The iteration process is continued until either of two convergence criteria 
is satisfied. These criteria are given as follows: 

If 

| f ( x n>| = e l 

then 

f(xn) (Cl) 

f(x n ) I 1 

and if 

| f M < e i 

then 

|f(x n ) - x n | i e 2 (C2) 

Reference : (a) Scarborough, James B.: Numerical Mathematical Analysis. Fourth ed. 
Johns Hopkins Press, 1958, p. 192. 

Storage : 137 g locations. 

Subroutine date: August 1, 1968. 
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LANGLEY LIBRARY SUBROUTINE ITR2 


Language : FORTRAN 

Purpose : Given F(X) = 0, to find a value for X within a given epsilon of relative error in 
a given interval (a,b). 


Use : CALL ITR2 (X, A, B, DELTX, FOFX, El, E2, MAXI, ICODE) 


X 

A 

B 

DELTX 

FOFX 

El 

E2 

MAXI 

ICODE 


The root. 

The lower bound on X. This value is used by ITR2 as an initial guess. 

The upper bound on X. This value is used by ITR2 as a final guess if 
the entire interval is scanned. 

AX, the size of the scanning interval. 

The name of a function subprogram to evaluate F(X). 

Relative error criterion. 

Absolute error criterion. 

A maximum iteration count supplied by the user. 

An integer supplied by ITR2 as an error code. This code should be 
tested by the user on return to the calling program. 


ICODE = 0 
ICODE = 1 
ICODE = 2 
ICODE = 3 


Normal return 

Maximum iterations are exceeded 
DELTX = 0, or negative 

a root cannot be found within the given bounds 


ICODE = 4: A > B 


Restrictions : Make A < B, AX positive. A function subprogram with a single argument X 
must be written by the user to evaluate F(X). The name of this subpro- 
gram, FOFX, must appear in an EXTERNAL statement of the calling 
program. 
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Method : The given function F(X) is evaluated at a given starting point a and at intervals 
of a specified AX thereafter, up to and including a specified end point b. A 
change of sign of the function across a AX interval indicates a possible root 
in that interval. The interval is then halved successively toward F(X) = 0 
until the prescribed accuracy is satisfied. The given function F(X) is evaluated 
once for each halving step. 

If the given function is expected to have more than one root between the pre- 
scribed starting and end points, it is suggested that a sufficiently small AX 
be given such that no more than one root be present within a AX interval. A 
normal return is given upon the location of the first root from the starting 
point a. Additional roots must be located by new entries into the subroutine 
using a new starting point a which is just beyond the previous root. 

Accuracy : The iteration process is continued until either of two convergence criteria is 
satisfied. These criteria are 

If 


XJ > Ci 


then 


X i - X i-1 

X, 


se. 


and if 



1 


then 



^ € 


2 


Reference: Scarborough, James B.: Numerical Mathematical Analysis. Fourth ed. 

John Hopkins Press, 1958. 

Storage : 260 8 locations. 
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LANGLEY LIBRARY SUBROUTINE FTLUP 


Language : FORTRAN 

Purpose : Computes y = F(x) from a table of values using first- or second-order 
interpolation. An option to give y a constant value for any x is also provided. 

Use : CALL FTLUP (X, Y, M, N, VARI, VARD) 

X The name of the independent variable x. 

Y The name of the dependent variable y = f(x). 

M The order of interpolation (an integer) 

M = 0 for y a constant as explained in the note below. 

M = 1 or 2. First or second order if VARI is strictly increasing 
(not equal). 

M = -1 or -2. First or second order if VARI is strictly decreasing 
(not equal). 

N The number of points in the table (an integer). 

VARI The name of a one -dimensional array which contains the N values of 

the independent variable. 

VARD The name of a one -dimensional array which contains the N values of 

the dependent variable. 

Note that VARD(I) corresponds to VARI(I) for I = 1,2,. . .,N. For M = 0 or 
N = 1, y = F(VARI(1)) for any value of x. The program extrapolates. 

Restrictions : All the numbers must be floating point. The values of the independent 
variable x in the table must be strictly increasing or strictly decreasing. The 
following arrays must be dimensioned by the calling program as indicated: VARI(N), 
VARD(N). 

Accuracy : A function of the order of interpolation used. 
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References ; (a) Nielson, Kaj L.: Methods in Numerical Analysis. Macmillan Co., 
c.1956, pp. 87-91. 

(b) Milne, William Edmund: Numerical Calculus. Princeton Univ. Press, 
1949, pp. 69-73. 

Storage : 430 g locations. 

Error condition: If the VARI values are not in order, the subroutine will print "TABLE 
BELOW OUT OF ORDER FOR FTLUP AT POSITION xxx TABLE IS STORED IN 
LOCATION xxxxxx" (absolute). It then prints the contents of VARI and VARD and stops 
the program. 

Subroutine date: September 12, 1969. 
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LANGLEY LIBRARY SUBROUTINE DISCOT 


Language : FORTRAN 

Purpose : DISCOT performs single or double interpolation for continuous or discontin- 
uous functions. Given a table of some function y with two independent variables, 
x and z, this subroutine performs K x th- and K z th-order interpolation to calculate the 
dependent variable. In this subroutine all single-line functions are read in as two sep- 
arate arrays and all multiline functions are read in as three separate arrays; that is, 


x i 

(i = 1,2,. . 

•,L) 

y j 

(1 = 1,2,.. 

,M) 

z k 

( k = 1,2,. . 

■>N) 


Use : CALL DISCOT (XA,ZA,TABX,TABY,TABZ,NC,NY,NZ,ANS) 


XA 

The x argument 


ZA 

The z argument (may be the 

same name as x on single lines) 

TABX 

A one -dimensional array of x 

values 

TABY 

A one -dimensional array of y 

values 

TABZ 

A one -dimensional array of z 

values 

NC 

A control word that consists of 

a sign (+ or -) and three digits. The con 


trol word is formed as follows: 

(1) If NX = NY, the sign is negative. If NX ^ NY, then NX is computed 
by DISCOT as NX = NY/NZ and the sign is positive and may be 
omitted if desired. 

(2) A one in the hundreds position of the word indicates that no extrapo- 
lation occurs above z max . With a zero in this position, extrapolation 
occurs when z > z max . The zero may be omitted if desired. 

(3) A digit (1 to 7) in the tens position of the word indicates the order of 
interpolation in the x-direction. 
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(4) A digit (1 to 7) in the units position of the word indicates the order of 
interpolation in the z -direction 

NY The number of points in y array 

NZ The number of points in z array 

ANS The dependent variable y 

Restrictions: See rule (5c) of section "Method” for restrictions on tabulating arrays and 
discontinuous functions. The order of interpolation in the x- and z-directions may be 
from 1 to 7. The following subprograms are used by DISCOT: UNS, DISSER, LAGRAN. 

Method: Lagrange's interpolation formula is used in both the x- and z-directions for 

interpolation. This method is explained in detail in reference (a) of this subroutine. 

For a search in either the x- or z -direction, the following rules are observed: 

(1) If x < x 1? the routine chooses the following points for extrapolation: 

X 1> X 2 V * ,,x k+l and y l ,y 2 5 * ' ' ,y k+l 

(2) If x > x n , the routine chooses the following points for extrapolation: 

x n-k ,x n-k+l’’ ‘ ‘ ,x n 311(1 y n-k ,y n-k+l»‘ ' ,,y n 

(3) If x % x n , the routine chooses the following points for interpolation: 

When k is odd, 



1 


> 



and 


y 

i- 


k+l> y L k+1 -»* 
2 "2 


When k is even, 






and y k’ y k >• 
i-£ i-^+l 




(4) If any of the subscripts in rule (3) become negative or greater than n 
(number of points), rules (1) and (2) apply. When discontinuous functions 
are tabulated, the independent variable at the point of discontinuity is 
repeated. 


(5) The subroutine will automatically examine the points selected before 
interpolation and if there is a discontinuity, the following rules apply. 
Let x d and x d+1 be the point of discontinuity. 
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(a) If x s x^, points previously chosen are modified for interpolation 
as shown: 

x d-k ,x d-k+l v • ’ )X d and y d-k’ y d-k+l 5 ' ' -> y d 

(b) If x > Xj, points previously chosen are modified for interpolation 
as shown: 

x d+l ,x d+2 x d+k and y d+l- y d + 2- ' " y d + k 

(c) When tabulating discontinuous functions, there must always be k + 1 
points above and below the discontinuity in order to get proper 
interpolation. 

(6) When tabulating arrays for this subroutine, both independent variables 
must be in ascending order. 

(7) In some engineering programs with many tables, it is quite desirable to 
read in one array of x values that could be used for all lines of a multi- 
line function or different functions. Even though this situation is not 
always applicable, the subroutine has been written to handle it. This pro- 
cedure not only saves much time in preparing tabular data, but also can 
save many locations previously used when every y coordinate had to 
have a corresponding x coordinate. Another additional feature that may 
be useful is the possibility of a multiline function with no extrapolation 
above the top line. 

Accuracy : A function of the order of interpolation used. 

Reference : (a) Nielsen, Kaj L.: Methods in Numerical Analysis. Macmillan Co., c.1956. 

Storage : 555g locations. 

Subprograms used : UNS 40 g locations. 

DISSER 110g locations. 

LAGRAN 55g locations. 

Subroutine date: August 1, 1968. 


102 



REFERENCES 


1. Trimpi, Robert L.: A Preliminary Theoretical Study of the Expansion Tube, A New 

Device for Producing High-Enthalpy Short -Duration Hypersonic Gas Flows. NASA 
TR R-133, 1962. 

2. Trimpi, Robert L.; and Callis, Linwood B.: A Perfect-Gas Analysis of the Expansion 

Tunnel, A Modification to the Expansion Tube. NASA TR R-223, 1965. 

3. Trimpi, Robert L.: A Theoretical Investigation of Simulation in Expansion Tubes and 

Tunnels. NASA TR R-243, 1966. 

4. Norfleet, Glenn D.; and Loper, F. C.: A Theoretical Real-Gas Analysis of the Expan- 

sion Tunnel. AEDC-TR-66-71, U.S. Air Force, June 1966. (Available from DDC 
as AD 633 656.) 

5. Miller, Charles G., HI: A Program for Calculating Expansion-Tube Flow Quantities 

for Real -Gas Mixtures and Comparison With Experimental Results. NASA 
TN D-6830, 1972. 

6. Mirels, Harold: Test Time in Low-Pressure Shock Tubes. Phys. Fluids, vol. 6, 

no. 9, Sept. 1963, pp. 1201-1214. 

7. Mirels, Harold: Shock Tube Test Time Limitation Due to Turbulent -Wall Boundary 

Layer, AIAA J., vol. 2, no. 1, Jan. 1964, pp. 84-93. 

8. Mechtly, E. A.: The International System of Units - Physical Constants and Conver- 

sion Factors (Second Revision). NASA SP-7012, 1973. 

9. Neel, C. A.; and Lewis, Clark H.; Interpolations of Imperfect Air Thermodynamic 

Data. I. At Constant Entropy. AEDC-TDR-64-183, U.S. Air Force, Sept. 1964. 
(Available from DDC as AD 605 471.) 

10. Miller, Charles G., HI; and Wilder, Sue E.: Real- Air Data Reduction Procedures 

Based on Flow Parameters Measured in the Test Section of Supersonic and Hyper- 
sonic Facilities. NASA TN D-6618, 1972. 

11. Lewis, Clark H.; and Burgess, Ernest G., HI: Empirical Equations for the Thermo- 

dynamic Properties of Air and Nitrogen to 15,000° K. AEDC-TDR-63-138, U.S. 
Air Force, July 1963. 

12. Gaydon, A. G.; and Hurle, I. R.: The Shock Tube in High Temperature Chemical 

Physics. Reinhold Pub. Corp., 1963. 

13. Connor, Laurence N., Jr.; and Andersen, Rolf P.: Real Gas Effects on Shock-Tube 

Flow Nonuniformity. AIAA J., vol. 8, no. 1, Jan. 1970, pp. 175-177. 


103 



14. Jones, Jim J.; and Moore, John A.: Exploratory Study of Performance of the Langley 

Pilot Model Expansion Tube With a Hydrogen Driver. NASA TN D-3421, 1966. 

15. Miller, Charles G.: Flow Properties in Expansion Tube With Helium, Argon, Air, 

and CC> 2 . AIAA J., vol. 12, no. 4, Apr. 1974, pp. 564-566. 

16. Yos, Jerrold M.: Transport Properties of Nitrogen, Hydrogen, Oxygen, and Air to 

30,000° K. Tech. Mem. RAD-TM-63-7 (Contract AF33(616)-7578), AVCO Corp., 
Mar. 22, 1963. 

17. Ames Research Staff: Equations, Tables, and Charts for Compressible Flow. NACA 

Rep. 1135, 1953. (Supersedes NACA TN 1428.) 

18. Zoby, Ernest V.: Empirical Stagnation-Point Heat-Transfer Relation in Several Gas 

Mixtures at High Enthalpy Levels. NASA TN D-4799, 1968. 

19. Grose, William L.; and Nealy, John E.: Imperfect Gas Effect in Real Hydrogen 

Drives. AIAA J., vol. 8, no. 6, June 1970, pp. 1164-1165. 

20. Olstad, Walter B.; Kemper, Jane T.; and Bengtson, Roger D.: Equilibrium Normal- 

Shock and Stagnation-Point Properties of Helium for Incident -Shock Mach Numbers 
From 1 to 30. NASA TN D-4754, 1968. 

21. Miller, Charles G., HE: Langley Hotshot Tunnel Operations With Helium at Mach 

Numbers in Excess of 30. NASA TN D-5901, 1970. 

22. Daum, Fred L: Air Condensation in a Hypersonic Wind Tunnel. AIAA J., vol. 1, 

no. 5, May 1963, pp. 1043-1046. 


104 




Diaphragm 
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Driver gas 

, 


Test gas 



(a) Prior to diaphragm rupture. 





(d) Reflected normal shock from end wall. 

Figure 1.- Sketches illustrating shock -tube regions of interest: 
Regions (J) , (2s) , and (2r) . 
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Figure 3.- Velocity U 3 as a function of pressure p 3 for isentropic unsteady expan- 
sion of helium and hydrogen driver gases for p 4 = 68.95 MN/m 2 and various T 4 ; 
velocity U 2 as a function of pressure p 2 for incident normal shock in real air. 
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(b) Helium driver gas with = 600 K. 

Figure 3.- Continued. 















(a) Static pressure in region ( 5 ). 

Figure 6.- Various expansion tube flow parameters for real air in thermochemical 
equilibrium as a function of flow velocity and assuming no shock reflection at 
secondary diaphragm, pj = 0.6895 kN/m 2 . 
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(c) Static temperature in region (F). 
Figure 6.- Continued. 
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(f) Normal-shock density ratio. 
Figure 6.- Continued. 
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(h) Stagnation density behind normal bow shock. 
Figure 6.- Continued. 
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(1) Quiescent acceleration air pressure in region (lO) . 


Figure 6.- Concluded. 
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Figure 7.- Various expansion tube flow parameters for real air in thermochemical 
equilibrium as a function of flow velocity and assuming no shock reflection at 
secondary diaphragm, pj = 3.45 kN/m^. 
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Figure 7.- Continued. 
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Figure 7.- Continued. 
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(f) Normal shock density ratio 
Figure 7.- Continued. 
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(h) Stagnation density behind normal bow shock. 
Figure 7.- Continued. 
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(k) Stagnation-point convective heat-transfer rate to sphere 


having radius of 2.54 cm. 
Figure 7.- Continued. 
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(1) Quiescent acceleration air pressure in region (lO) . 
Figure 7.- Concluded. 
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(a) Static pressure in region (j5) , 

Figure 8.- Various expansion tube flow parameters for real air in thermochemical 
equilibrium as a function of flow velocity and assuming no shock reflection at 
secondary diaphragm. p 1 = 6.90 kN/m 2 . 
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(h) Stagnation density behind normal bow shock. 
Figure 8.- Continued. 
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(i) Stagnation temperature behind normal bow shock. 
Figure 8.- Continued. 
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(k) Stagnation -point convective heat-transfer rate to sphere 
having radius of 2.54 cm. 

Figure 8.- Continued. 
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Figure 8.- Concluded. 
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U 5 , km/ sec 

(a) Static pressure in region ( 5 ) . 

Figure 9.- Various expansion tube flow parameters for real air in thermochemical 
equilibrium as a function of flow velocity and assuming no shock reflection at 
secondary diaphragm, p, = 34.47 kN/m 2 . 















U^, km/ sec 

(g) Stagnation pressure behind normal bow shock. 
Figure 9.- Continued. 
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Figure 9.- Continued. 
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(i) Stagnation temperature behind normal bow shock. 
Figure 9.- Continued. 
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Figure 9.- Concluded. 
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(a) Static pressure in region (^5). 

Figure 10.- Various expansion tube flow parameters for real air in thermochemical 
equilibrium as a function of flow velocity and assuming no shock reflection at 
secondary diaphragm. p 1 = 68.95 kN/m 2 . 








(e) Unit Reynolds number in region (5) . 
Figure 10 .- Continued. 
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(g) Stagnation pressure behind normal bow shock. 
Figure 10.- Continued. 
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(1) Quiescent acceleration air pressure in region 



Figure 10.- Concluded. 
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(a) Static pressure in region ©• 


Figure 11.- Various expansion tube flow parameters for real air in thermochemical 
equilibrium as a function of flow velocity and assuming no shock reflection at 
secondary diaphragm, pj = 344.74 kN/m 2 . 




Figure 11.- Continued. 
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(g) Stagnation pressure behind normal bow shock. 
Figure 11.- Continued. 
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(h) Stagnation density behind normal bow shock. 
Figure 11.- Continued. 
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(k) Stagnation -point convective heat-transfer rate to sphere 
having radius of 2.54 cm. 

Figure 11.- Continued. 
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Figure 12.- Various expansion tube flow parameters for real air in thermochemical 
equilibrium as a function of flow velocity and assuming a totally reflected shock at 
the secondary diaphragm, pj = 689.5 N/nA 
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Figure 12.- Continued. 
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(e) Unit Reynolds number in region (i). 
Figure 12.- Continued. 
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U 5> km/ sec 

(f) Normal shock density ratio. 


Figure 12.- Continued. 
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(h) Stagnation density behind normal bow shock. 
Figure 12.- Continued. 
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(i) Stagnation temperature behind normal bow shock. 
Figure 12.- Continued. 
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(j) Stagnation enthalpy behind normal bow shock 
Figure 12.- Continued. 









Figure 12.- Concluded. 
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Figure 13.- Various expansion tube flow parameters for real air in thermochemical 
equilibrium as a function of flow velocity and assuming a totally reflected shock 
at the secondary diaphragm, p^ = 3.45 kN/m2. 
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(b) Static density in region (5). 
Figure 13.- Continued. 
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Figure 13.- Continued. 
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(f) Normal shock density ratio 
Figure 13.- Continued. 





Figure 13,- Continued. 
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(h) Stagnation density behind normal bow shock. 


Figure 13.- Continued. 



U^. km/ sec 

(i) Stagnation temperature behind normal bow shock 


Figure 13.- Continued. 
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U 5 , km/ sec 

(1) Quiescent acceleration air pressure in region (lO 
Figure 13.- Concluded. 
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Figure 14,- Various expansion tube flow parameters for real air in thermochemical 
equilibrium as a function of flow velocity and assuming a totally reflected shock at 
the secondary diaphragm, p-^ = 6.90 kN/m 2 . 
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(b) Static density in region (£). 
Figure 14.- Continued. 
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(c) Static temperature in region (ji). 
Figure 14.- Continued. 
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(h) Stagnation density behind normal bow shock. 
Figure 14.- Continued. 
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(k) Stagnation-point convective heat-transfer rate to sphere 
having radius of 2.54 cm. 


Figure 14.- Continued. 
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(a) Static pressure in region (|). 

Figure 15.- Various expansion tube flow parameters for real air in thermochemical 
equilibrium as a function of flow velocity and assuming a totally reflected shock at 
the secondary diaphragm, pj = 34.47 kN/m2. 
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Figure 15.- Continued. 
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(c) Static temperature in region (|). 
Figure 15.- Continued. 
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(f) Normal shock density ratio. 
Figure 15.- Continued. 
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Figure 15.- Continued. 
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(k) Stagnation -point convective heat-transfer rate to sphere 
having radius of 2.54 cm. 


Figure 15.- Continued. 
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(1) Quiescent acceleration air pressure in region (lO 
Figure 15.- Concluded. 
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Figure 16.- Various expansion tube flow parameters for real air in thermochemical 
equilibrium as a function of flow velocity and assuming a totally reflected shock 
at the secondary diaphragm, = 68.95 kN/m^. 
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(b) Static density in region ( 5 ). 
Figure 16.- Continued. 
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(c) Static temperature in region ( 5 ). 
Figure 16.- Continued. 


238 





240 



10 


l 



U 5 , km/ sec 

(g) Stagnation pressure behind normal bow shock. 
Figure 16.- Continued. 
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(h) Stagnation density behind normal bow shock. 
Figure 16.- Continued. 












(k) Stagnation-point convective heat -transfer rate to sphere 
having radius of 2.54 cm. 


Figure 16.- Continued. 




(1) Quiescent acceleration air pressure in region (10). 
Figure 16.- Concluded. 
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(a) Static pressure in region ( 5 ). 

Figure 17.- Various expansion tube flow parameters for real air in thermochemical 
equilibrium as a function of flow velocity and assuming a totally reflected shock 
at the secondary diaphragm, pj = 344.74 kN/m2. 
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(b) Static density in region (j5) . 


Figure 17.- Continued. 
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Figure 17.- Continued. 


250 






(e) Unit Reynolds number in region ( 5 ). 
Figure 17.- Continued. 
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(g) Stagnation pressure behind normal bow shock. 
Figure 17.- Continued. 


254 



10 3 



U e , km) sec 
5 

(h) Stagnation density behind normal bow shock. 
Figure 17.- Continued. 
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U S| i, km! sec 

(a) Static pressure, Pg/p^ 

Figure 18.- Various nondime ns ionalized flow parameters in region (^2) as a function of incident normal shock velocity. 
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(b) Static density, P 2 /Pi- 
Figure 18.- Continued. 
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(c) Static temperature, Tg/Tj. 


Figure 18.- Continued. 
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Figure 18.- Continued. 
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Thermochemical state Shock reflection at 
of expansion secondary diaphragm 



Figure 19.- Static pressure in region (H) as a function of air flow velocity 
for = 3.45 kN/m^ and various incident normal-shock velocities. 
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Figure 19.- Continued. 
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(e) U g j = 3.6 km/sec. 
Figure 19.- Continued. 



(d) U g j = 4.5 km/sec. 
Figure 19.- Concluded. 
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Is'La 

(a) Ideal time interval between arrival of incident normal shock 
into region (lO) and acceleration-air — test-air interface. 

Figure 20.- Acceleration air flow quantities as a function of distance downstream from 
secondary diaphragm for = 3.45 kN/nv* and U g ^ = 2.85 km/sec. 
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(b) Time interval between arrival of incident normal shock into region (To) and 

acceleration-air— test-air interface. 

Figure 20.- Continued. 


m/sec 


270 




acceleration-air— test-air interface. 
Figure 20.- Continued. 
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(d) Ratio of incident normal shock into region (lO) to 
acceleration-air — test-air interface velocity. 


Figure 20.- Concluded. 
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(a) Static pressure, pg/Pj. 

Figure 22.- Various nondimen sional flow parameters in region ( 2 ) as a function of incident 
normal -shock velocity, (Predicted by using curve-fit expressions of ref. 11.) 
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(b) Static density, 

Figure 22.- Continued. 
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(d) Static enthalpy, hg/h^. 
Figure 22.- Continued. 
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Figure 22.- Concluded. 
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